Angela hat ein Dokument mit ungefähr 400 Textfeldern, und jedes Textfeld enthält Text. Sie fragt sich, ob es eine Möglichkeit gibt, die Textfelder zu entfernen, aber den Text im Dokument zu belassen.

Dies kann manuell erfolgen, indem Sie einfach den Text in einem Textfeld auswählen (ohne das Textfeld selbst auszuwählen), Strg + C drücken, um den Text zu kopieren, auf die gewünschte Stelle klicken, Strg + V drücken und dann löschen das Textfeld. Dies würde jedoch schnell langweilig werden, wenn Sie mit so vielen Textfeldern wie Angela arbeiten.

In diesem Fall ist es am besten, sich auf ein Makro zu verlassen, um die Änderungen vorzunehmen. Das Makro kann alle Textfelder ziemlich schnell durchlaufen und die erforderliche Arbeit erledigen. Das Folgende ist ein Beispiel für ein solches Makro:

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

Dieses Makro funktioniert nur mit Textfeldern und ignoriert alle anderen Formen, die möglicherweise Text enthalten. Es beginnt am letzten Textfeld und arbeitet sich bis zum Anfang des Dokuments vor. Wenn Sie fertig sind, wird der gesamte Text, der sich früher in den Textfeldern befand, am Anfang des Absatzes eingefügt, in dem das gelöschte Textfeld zuvor verankert war.

Darüber hinaus ist dieser Text von doppelten Klammern umgeben, sodass Sie leicht erkennen können, wo sich der Text befindet. Da Textfelder manchmal weit entfernt von der Stelle verankert werden können, an der sie im Dokument angezeigt werden, sollten Sie auf jeden Fall nach diesen Textklammern in doppelten Klammern suchen und sie an die Stelle verschieben, an der sie sich endgültig befinden sollen.

Wenn Sie nach anderen Möglichkeiten suchen, um dieselbe Aufgabe zu erfüllen, könnte Sie diese Webseite interessieren:

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

_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 (7739) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.