'For Each Para in ActiveDocument.Paragraphs' nur innerhalb einer R

24/02/2009 - 19:48 von AndreasHermle | Report spam
Hallo:
Ich habe ein Makro, das alle Absàtze eines Dokumentes durchlàuft und beim
Auftreten bestimmter Kriterien Formatierungen vornimmt.

For each para in ActiveDocument.pagragraphs
. usw.

Das Makro làuft einwandfrei. Nun meine Frage:

Ich möchte, daß dieses Makro nicht alle Absàtze durchlàuft sondern nur die
Absàtze einer definierten Range. Die Range soll von ...
... dem ERSTEN Auftreten der integrierten Überschriftenformatvorlage
"Überschrift 1" bis
... zum ERSTEN Auftreten der benutzerdefinierten Überschrift "Überschrift_VE"
reichen.

Ist dies möglich?

Vielen Dank im voraus für Eure Hilfe.

Viele Grüsse, Andreas
 

Lesen sie die antworten

#1 Lisa (Nora Richter)
24/02/2009 - 23:27 | Warnen spam
Hallo Andreas,

For each para in ActiveDocument.pagragraphs
. usw.



man kann auch durch alle Absàtze eines Dokuments schleifen, also vom
1. bis zum letzten.

For i = 1 To ActiveDocument.Paragraphs(i)
...

Ich möchte, daß dieses Makro nicht alle Absàtze durchlàuft sondern nur die
Absàtze einer definierten Range. Die Range soll von ...
... dem ERSTEN Auftreten der integrierten Überschriftenformatvorlage
"Überschrift 1" bis
... zum ERSTEN Auftreten der benutzerdefinierten Überschrift "Überschrift_VE"
reichen.



Ja, in der 1. Schleife den Anfang festmachen, in der 2. Schleife das
Ende festmachen. Danach kann man den Bereich bearbeiten:
_____
Sub RangeZwischenUeberschriften()

Dim i As Long 'Zàhler
Dim BeginnAbsatz As Long 'Um den Range-Beginn festzulegen
Dim EndeAbsatz As Long 'Um das Range-Ende festzulegen
Dim para As Word.Paragraph

For i = 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = "Überschrift 1" Then
BeginnAbsatz = i
Exit For
End If
Next i

For i = BeginnAbsatz To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(i).Style = "Überschrift_VE" Then
EndeAbsatz = i
Exit For
End If
Next i

For i = BeginnAbsatz To EndeAbsatz
Set para = ActiveDocument.Paragraphs(i)
'...
Next i

End Sub
_____

Gruß
Lisa
_____
http://www.schreibbuero-richter.de/...arker.html

Ähnliche fragen