|
Nach dem ersten Treffer im Dokument und dem Ändern des Treffers soll zum nächsten Paragraphen gegengen werden. Mein Versuch findet die Suchstelle, aber geht nicht zum nächsten Paragraphen. Wer kann helfen? WORD 2016
Sub FindMuster_And_Insert_vbTab()
' Durchsucht das gesamte Dokument nach dem Suchmuster im Absatz, fügt vor der ersten Fundstelle ein vbTab ein und geht zum nächsten Absatz weiter
Dim myRange As Range
Set oRange = ActiveDocument.Range
Application.ScreenUpdating = False
With oRange.Find
' Anfangswerte setzen
.Text = "Test"
Flag = .Execute
While Flag = True
.Parent.InsertBefore vbTab
oRange.SetRange Start:=.Parent.End, End:=ActiveDocument.Range.End
Flag = .Execute
Wend
End With
End Sub
So sieht ein Test aus:
BlaBla BlaBla Test BlaBla BlaBla Test BlaBla
BlaBla BlaBla Test BlaBla BlaBla Test BlaBla Test
BlaBla BlaBla Test BlaBla BlaBla Test BlaBla BlaBla Test Blabla
|