Auf Englisch lesen

Freigeben über

Zurückgeben von Text aus einem Dokument

  • Artikel

Verwenden Sie die Text-Eigenschaft , um Text aus einem Range-Objekt oder Selection-Objekt zurückzugeben. Im folgenden Beispiel wird der nächste Absatz, der mit der Formatvorlage "Überschrift 1" formatiert ist, markiert. Der Inhalt der Text-Eigenschaft wird mit der Funktion MsgBox angezeigt.

Sub FindHeadingStyle() 
 With Selection.Find 
 .ClearFormatting 
 .Style = wdStyleHeading1 
 .Execute FindText:="", Format:=True, _ 
 Forward:=True, Wrap:=wdFindStop 
 If .Found = True Then MsgBox Selection.Text 
 End With 
End Sub

Die folgende Anweisung gibt den markierten Text zurück und zeigt ihn an.

Sub ShowSelection() 
 Dim strText As String 
 strText = Selection.Text 
 MsgBox strText 
End Sub

Im folgenden Beispiel wird das erste Wort im aktiven Dokument zurückgegeben. Jedes Element in der Words-Auflistung ist ein Range-Objekt , das ein Wort darstellt.

Sub ShowFirstWord() 
 Dim strFirstWord As String 
 strFirstWord = ActiveDocument.Words(1).Text 
 MsgBox strFirstWord 
End Sub

Im folgenden Beispiel wird der Text zurückgegeben, der mit der ersten Textmarke im aktiven Dokument verbunden ist.

Sub ShowFirstBookmark() 
 Dim strBookmark As String 
 If ActiveDocument.Bookmarks.Count > 0 Then 
 strBookmark = ActiveDocument.Bookmarks(1).Range.Text 
 MsgBox strBookmark 
 End If 
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.