Tim fragt sich, ob Suchen und Ersetzen zum Suchen und Suchen von Textfeldern verwendet werden kann. Er möchte nach Textfeldern suchen und jedes durch eine Grafik ersetzen, da dies für ihn fast unmöglich ist, wenn einige Textfelder in seinem Dokument im Wesentlichen unsichtbar sind.

Wenn Ihre Textfelder mit Ihrem Text übereinstimmen, können Sie sie mithilfe von Suchen und Ersetzen suchen und ersetzen. Sie müssen lediglich die Registerkarte Ersetzen im Dialogfeld Suchen und Ersetzen anzeigen und im Feld Suchen nach ^ g eingeben. Dies ist der Code zum Suchen von Grafiken, aber Word behandelt Textfelder als Grafiken, wenn sie inline sind.

Das Problem ist natürlich, dass die meisten Textfelder nicht inline sind – Text umschließt sie und sie befinden sich auf ihrer eigenen Ebene. Für diese Arten von Textfeldern müssen Sie ein Makro verwenden, um zu suchen und zu ersetzen. Das Folgende ist ein Beispiel für eines, das Sie verwenden könnten:

Sub ReplaceTextBox()

Dim shp As Shape

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             shp.Delete             Selection.PasteAndFormat (wdPasteDefault)

End If     Next End Sub

Um das Makro zu verwenden, wählen Sie die Grafik aus, die Sie als Ersatz verwenden möchten, und drücken Sie dann Strg + C. Dadurch wird die Grafik in die Zwischenablage verschoben. Wenn Sie das Makro ausführen, wird diese Grafik – die in der Zwischenablage – anstelle jedes Textfelds in das Dokument eingefügt.

Sie sollten sich bewusst sein, dass das Makro alle Textfelder in einem Dokument durch die Grafiken ersetzt. Wenn Sie Textfelder selektiv ersetzen möchten, wäre die Codierung wesentlich komplexer.

_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 beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (2894) gilt für Microsoft Word 2007, 2010, 2013 und 2016.