Words-Objekt (Word)
Eine Auflistung mit Wörtern in einer Auswahl, einem Bereich oder Dokument. Jedes Element der Words-Auflistung ist ein Range-Objekt, das ein Wort darstellt. Es gibt kein Word-Objekt.
Mit der Words-Eigenschaft können Sie das Words-Objekt zurückgeben. Im folgenden Codebeispiel wird angezeigt, wie viele Wörter momentan markiert sind.
MsgBox Selection.Words.Count & " words are selected"
Verwenden Sie Words (Index), wobei Index die Indexnummer ist, um ein Range-Objekt zurückzugeben, das ein Wort darstellt. Die Indexnummer stellt die Position des Worts in der Words-Auflistung dar. Im folgenden Codebeispiel wird das erste Wort in der Auswahl als 24-Punkt-Kursiv formatiert.
With Selection.Words(1)
.Italic = True
.Font.Size = 24
End With
Das Element in der Words-Auflistung enthält sowohl das Wort als auch die Abstände nach dem Wort. Zum Entfernen der nachstehenden Leerzeichen verwenden Sie die RTrim-Funktion von Visual Basic, z. B. RTrim(ActiveDocument.Words(1)). Im folgenden Codebeispiel wird das erste Wort (und die nachstehenden Leerzeichen) im aktiven Dokument markiert.
ActiveDocument.Words(1).Select
Wenn die Auswahl die Einfügemarke darstellt und direkt nach ihr ein Leerzeichen folgt, bezieht sich Selection.Words(1) auf das der Auswahl voranstehende Wort. Wenn die Auswahl die Einfügemarke darstellt und direkt nach ihr ein Zeichen folgt, bezieht sich Selection.Words(1) auf das der Auswahl nachstehende Wort.
Die Count-Eigenschaft gibt für diese Auflistung in einem Dokument nur die Anzahl der Elemente im Hauptartikel zurück. Zum Zählen der Elemente in anderen Artikeln verwenden Sie die Auflistung mit dem Range-Objekt. In der Summe der Count -Eigenschaft sind auch Satz- und Absatzzeichen enthalten. Verwenden Sie zur Ermittlung der tatsächlichen Wortzahl eines Dokuments das Dialogfeld Wörter zählen. Im folgenden Codebeispiel wird die Anzahl der Wörter des aktiven Dokuments ermittelt und als Wert der Variablen numWords zugewiesen.
Set temp = Dialogs(wdDialogToolsWordCount)
' Execute the dialog box to refresh its data.
temp.Execute
numWords = temp.Words
Hinweis
Weitere Informationen zum Aufrufen integrierter Dialogfelder erhalten Sie unter Anzeigen von integrierten Dialogfeldern in Word.
Die Add-Methode ist für die Words-Auflistung nicht verfügbar. Sie können stattdessen mit der InsertAfter -Methode oder der InsertBefore -Methode Text zu einem Range -Objekt hinzufügen. Im folgenden Codebeispiel wird nach dem ersten Wort im aktiven Dokument Text eingefügt.
ActiveDocument.Range.Words(1).InsertAfter "New text "
Name |
---|
Item |
Referenz zum Word-Objektmodell
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.