Word 2016
Nach dem ersten Wort eines Absatzes soll das blank durch ein vbTab ersetzt werden, dann soll zum nächsten Absatz gegangen werden, bis das Dokumentende erreicht ist. Mein Macro, das ich anolog nach einer Vorlage für das Finden von Text in italic erstellt habe, ersetzt leider JEDES blank durch ein vbTab. Für jede Hilfe wäre ich dankbar.
Sub FindBlank_And_Insert_vbTab()
' Durchsucht das gesamte Dokument nach dem ersten Blank im Absatz, setzt dort ein vbTab und geht zum nächsten Absatz weiter
Dim myRange As Range
Set oRange = ActiveDocument.Range
Application.ScreenUpdating = False
With oRange.Find
' Anfangswerte setzen
.Text = " "
Flag = .Execute
While Flag = True
.Parent.InsertBefore vbTab
oRange.SetRange Start:=.Parent.End, End:=ActiveDocument.Range.End
Flag = .Execute
Wend
End With
End Sub
|