Absatzanfang durchsuchen und formatieren

11/01/2010 - 16:35 von Dietmar Krawinkel | Report spam
Hallo NGs,

ich möchte gerne über ein Makro unter Word03 Absàtze (i.d.R. nur 1
Zeile lang)
durchsuchen und jene, die mit einem beliebigen Wort anfangen,
markieren und
ihnen eine Absatzformatierung zuweisen (z.B. 18 pt vor).

Im Gegensatz zu den vielen Absàtzen (Zeilen), die mit einem Tabstop (6
cm) beginnen
(Aufzàhlung), sollen diese keine Absatzformatierung erhalten.

Hört sich erstmal einfach an, habe ich aber trotzdem nicht
hinbekommen,
so dass ich mal wieder auf eure Hilfe angewiesen bin. Danke vorab.

Gruß
Dietmar
 

Lesen sie die antworten

#1 Thomas Gahler
11/01/2010 - 22:27 | Warnen spam
Hallo Dietmar


ich möchte gerne über ein Makro unter Word03 Absàtze (i.d.R. nur 1
Zeile lang)
durchsuchen und jene, die mit einem beliebigen Wort anfangen,
markieren und
hnen eine Absatzformatierung zuweisen (z.B. 18 pt vor).


Da gibt es wohl zwei Möglichkeiten. Die eine baut auf Suchen/Ersetzen auf
und die andere bearbeitet die Absàtze im Dokument.

Suchen/Ersetzen ist sicher schnell und mit der Wildcard-Suche auch màchtig,
dafür schwerer zum programmieren. Deshlab im Beispiel die zweite Möglichkeit




Sub Demo()
Dim para As Word.Paragraph

For Each para In ActiveDocument.Paragraphs
With para
If Not Mid$(.Range.Text, 1, 1) = vbTab Then
.SpaceBefore = "20"
End If
End With
Next para
End Sub



Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP2), Office 2007 (SP2)

Ähnliche fragen