Hallo, es wäre großartig, wenn mir jemand helfen könnte. Ich brauch ein MS Word Macro, das mir die Absätze eines Textes durchzähl und über jeden Absatz die entsprechende Nummer schreibt.
Ein wenig bin ich schon voran gekommen. Das untenstehende Macro mact eigentlich alles, so wie ich mir das vorstelle. Nur leider hängt sich Word nach Abarbeitung des Macros auf. Wo steckt der Fehler?
Danke für die Hilfe
Sub CountPilcrows()
Dim doc As Document
Dim rng As Range
Dim count As Long
Set doc = ActiveDocument
Set rng = doc.Content
count = 0
With rng.Find
.Text = "^13"
.Forward = True
.Wrap = wdFindStop
Do While .Execute
If rng.Start = rng.Paragraphs(1).Range.Start Then
count = count + 1
rng.InsertAfter count & vbNewLine
End If
rng.Collapse wdCollapseEnd
Loop
End With
End Sub
|