Bearbeiten von Text

Dieses Thema enthält Visual Basic-Beispiele im Zusammenhang mit den in den folgenden Abschnitten identifizierten Aufgaben.

Bestimmen, ob Text ausgewählt istReduzieren einer Auswahl oder eines BereichsErweitern einer Auswahl oder eines BereichsNeudefinition einer Auswahl oder eines BereichsText ändern

Informationen und Beispiele zu anderen Bearbeitungsaufgaben finden Sie in den folgenden Themen:

Zurückgeben von Text aus einem DokumentAuswählen von Text in einem DokumentEinfügen von Text in ein DokumentBearbeiten eines Teils eines Dokuments

Bestimmen, ob Text ausgewählt ist

Der Typ](.. /.. /.. /api/Word.Selection.Type.md) -Eigenschaft der Selection](.. /.. /.. Das /api/Word.Selection.md) -Objekt gibt Informationen zum Typ der Auswahl zurück. Im folgenden Beispiel wird eine Meldung angezeigt, wenn die Markierung eine Einfügemarke ist.

Sub IsTextSelected() 
 If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected" 
End Sub

Reduzieren einer Auswahl oder eines Bereichs

Verwenden Sie die Collapse-Methode , um ein Selection-Objekt oder ein Range-Objekt auf seinen Anfangs- oder Endpunkt zu reduzieren. Im folgenden Beispiel wird die Auswahl auf eine Einfügemarke am Anfang der Auswahl reduziert.

Sub CollapseToBeginning() 
 Selection.Collapse Direction:=wdCollapseStart 
End Sub

Im folgenden Beispiel wird der Bereich nach dem ersten Wort beendet und danach neuer Text hinzugefügt.

Sub CollapseToEnd() 
 Dim rngWords As Range 
 
 Set rngWords = ActiveDocument.Words(1) 
 With rngWords 
 .Collapse Direction:=wdCollapseEnd 
 .Text = "(This is a test.) " 
 End With 
End Sub

Erweitern einer Auswahl oder eines Bereichs

Im folgenden Beispiel wird MoveEnd](.) verwendet. /.. /.. /api/Word.Selection.MoveEnd.md)- Methode des Selection-Objekts , um das Ende der Auswahl um drei zusätzliche Wörter zu erweitern. Die Methoden MoveLeft, MoveRight, MoveUp und Move Down können auch zum Erweitern eines Selection-Objekts verwendet werden.

Sub ExtendSelection() 
 Selection.MoveEnd Unit:=wdWord, Count:=3 
End Sub

Im folgenden Beispiel wird MoveEnd](.) verwendet. /.. /.. /api/Word.Range.MoveEnd.md)- Methode des Range-Objekts , um den Bereich zu erweitern, um die ersten drei Absätze im aktiven Dokument einzuschließen.

Sub ExtendRange() 
 Dim rngParagraphs As Range 
 
 Set rngParagraphs = ActiveDocument.Paragraphs(1).Range 
 rngParagraphs.MoveEnd Unit:=wdParagraph, Count:=2 
End Sub

Neu definieren einer Auswahl oder eines Bereichs

Verwenden Sie die GetRange-Methode , um ein vorhandenes Selection - oder Range-Objekt neu zu definieren. Weitere Informationen finden Sie unter Arbeiten mit dem Selection-Objekt oder Arbeiten mit Range-Objekten

Text ändern

Sie können vorhandenen Text ändern, indem Sie den Inhalt eines Bereichs ändern. Die folgende Anweisung ändert das erste Wort im aktiven Dokument, indem text](.) festgelegt wird. /.. /.. /api/Word.Range.Text.md) -Eigenschaft eines Range-Objekts auf "The".

Sub ChangeText() 
 ActiveDocument.Words(1).Text = "The " 
End Sub

Sie können auch die Delete-Methode , das Selection-Objekt oder das Range-Objekt verwenden, um vorhandenen Text zu löschen und dann mit der InsertAfter-Methode oder der InertBefore-Methode neuen Text einzufügen. Im folgenden Beispiel wird der erste Absatz im aktiven Dokument gelöscht und neuer Text eingefügt.

Sub DeleteText() 
 Dim rngFirstParagraph As Range 
 
 Set rngFirstParagraph = ActiveDocument.Paragraphs(1).Range 
 With rngFirstParagraph 
 .Delete 
 .InsertAfter Text:="New text" 
 .InsertParagraphAfter 
 End With 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.