Bruce schreibt ein Makro und muss eine Auswahl innerhalb des Dokuments treffen. Er weiß, wie man die Einfügemarke positioniert, aber nach dem Positionieren muss er alles von dort bis zum nächsten Satzzeichen auswählen, einschließlich möglicher Anführungszeichen oder Apostrophe nach dem Satzzeichen. Bruce fragt sich, ob es einen tatsächlichen Befehl dafür gibt oder ob es einen beteiligten Code geben muss, um die Auswahl zu treffen.

Das erste, was Sie versuchen sollten, ist die integrierte Fähigkeit von VBA, sich jeweils um einen Satz zu bewegen. Verwenden Sie nach dem Positionieren der Einfügemarke den folgenden Befehl:

Selection.MoveRight Unit:=wdSentence, Count:=1, Extend:=wdExtend

Der Befehl erweitert die Auswahl nach rechts um alle Word-Ansichten als Satz, sodass er Ihren Anforderungen entspricht. Wenn dies nicht der Fall ist (möglicherweise fehlen einige Zeichen, die in Ihrer Auswahl enthalten sein müssen), können Sie versuchen, Ihren eigenen Auswahlcode zu erstellen. Hier ist ein Beispiel für eine Möglichkeit, einen solchen Code zu entwickeln:

With Selection     .Extend     .Find.Text = "[,.'" & Chr(146) & Chr(148) & Chr(34) & "]"

.Find.MatchWildcards = True     .Find.Execute     .Find.Text = "[!,.'" & Chr(146) & Chr(148) + Chr(34) & "]"

.Find.Execute End With

Die Extend-Eigenschaft bewirkt, dass Word alles ab der Position der Einfügemarke auswählt und die Platzhaltersuche alle Satzzeichen findet. Der gesuchte Text besteht im Wesentlichen aus allen Satzzeichen, einschließlich Apostrophen und Anführungszeichen.

(Diese können nach Bedarf an Ihre Anforderungen angepasst werden.) Die zweite Suchoperation (die mit einem Ausrufezeichen beginnt) findet das erste Nicht-Interpunktionszeichen, nachdem die erste Suche durchgeführt wurde. Auf diese Weise werden mehrere Satzzeichen hintereinander behandelt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (12341) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Auswahl zum nächsten Interpunktionszeichen.