Word verfügt über eine leistungsstarke Such- und Ersetzungsfunktion, mit der Sie nach praktisch allem in Ihrem Dokument suchen können. Word enthält sogar Codes, mit denen Sie nach speziellen Elementen suchen können. (Klicken Sie im Dialogfeld Suchen und Ersetzen auf die Schaltfläche Spezial, um zu sehen, welche Codes verfügbar sind.) Eine Sache, nach der Sie jedoch nicht suchen können, sind Textfelder. Es gibt keinen speziellen Code, mit dem Sie Textfelder finden können, und Sie können nicht mit dem Objektbrowser danach suchen.

Sie können jedoch ein Makro verwenden, um ein Dokument zu durchsuchen und anzuhalten, wenn es ein Textfeld findet. Das folgende Makro stoppt bei jedem gefundenen Textfeld und fragt den Benutzer, ob dies das gewünschte Textfeld ist.

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

_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 (3520) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Finding Text Boxes.