Hallo Liebes Forum,
ich bitte um eure Hilfe bei der Lösung meines Problems!
Ich habe ein Word Dokument mit Lesezeichen an bestimmten Stellen im Text.
Über diese Leszeichen wird nach Bearbeitung des Dokumentes jeweils ein Text geschrieben, der zwei Zeilen lang ist.
Bevor das Dokument gedruckt werden kann, müssen diese Zwei-Zeiler jedoch immer gelöscht werden.
Da es sich um eine circa 150-Seitiges Dokument handelt, würde ich diesen Zwischenschritt der Löschung gerne automatisieren.
Hierzu habe ich folgendes Makro gerschrieben:
Sub LöschezweiZeilenueberLesezeichen1()
Dim r As Word.Range
Set r = ActiveDocument.Bookmarks("Lesezeichen1").Range
r.MoveStart wdSentence, -2
r.Delete
End Sub
Hier habe ich jedoch das Probem, dass das entsprechenden Lesezeichen ebenfalls gelöscht wird.
Habt ihr eine Idee, wie man das makro anpassen muss, damit das Lesezeichen bestehen bleibt?
Vielen Dank und viele Grüße
Sarah
|