Wie wähle ich Text zwischen zwei "Lesezeichen" in Word VBA aus?

518
Ann Donahue

Ich habe den Code verwendet, den Sie für diese vorherige Frage bereitgestellt haben, aber der Kompilierungsfehler wird angezeigt: Sub oder Funktion nicht definiert. Ich verwende VBA 7.1 und Word 2016.

Sub SelectTextBetweenBookmarks()  Set rngStart = ActiveDocument.Bookmarks("START").Range Set rngEnd = ActiveDocument.Bookmarks("END").Range  Range(rngStart.Start, rngEnd.End).Select  End Sub

Danke für die Hilfe.

2

1 Antwort auf die Frage

1
Rich Michaels

Die Fehlermeldung, die Sie erhalten haben, wird normalerweise durch eine fehlende End Sub- oder End Function-Anweisung verursacht. Ihr geposteter Code war jedoch in Ordnung.

Die beiden Probleme, die korrigiert werden mussten, waren das Angeben der Bereiche und das Festlegen des Bereichs. Hier ist ein überarbeiteter Code, der funktioniert.

Sub SelectTextBetweenBookmarks() Dim rngStart As Range, rngEnd As Range Set rngStart = ActiveDocument.Bookmarks("START").Range Set rngEnd = ActiveDocument.Bookmarks("END").Range  Selection.SetRange rngStart.Start, rngEnd.End End Sub

BTW - Willkommen im Forum und wenn Sie eine Chance haben, werfen Sie einen Blick auf den Verhaltenskodex des Forums . Es enthält viele gute Informationslinks, um das Forum optimal nutzen zu können.

Verwandte Probleme