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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für