Anita formatiert ein langes Dokument (über 300 Seiten) neu, das von PDF in Word konvertiert wurde. Sie hat viel Erfahrung mit Word und Stilen und verwendet Suchen und Ersetzen, um schlecht formatierte Dokumente zu reparieren. In diesem Fall gibt es ein Problem, das sie nicht herausfinden kann. Das Originaldokument hatte horizontale Linien in der Kopf- und Fußzeile, die im Word-Dokument in grafische Linien konvertiert wurden. Sie möchte alle diese grafischen Linien löschen, aber bei der Suche nach ^ g werden sie nicht gefunden. Anita fragt sich, ob es eine Möglichkeit gibt, das Entfernen dieser grafischen Linien zu automatisieren, da sie lieber nicht mehr als 600 Mal auf Del klicken und drücken muss.

Da der PDF-Konvertierungsprozess anscheinend die Grafiken in der Kopf- und Fußzeile hinzufügt, bedeutet dies, dass sie durch ein regelmäßiges Suchen und Ersetzen nicht leicht „auffindbar“ sind. Stattdessen möchten Sie ein Makro verwenden, um sie zu entfernen. Das folgende Beispiel sieht nur im Kopf- und Fußbereich aus und löscht alle dort gefundenen Grafiken.

Sub FooterHeaderGraphicFind()

Dim rStory As Range     Dim i As Integer

For Each rStory In ActiveDocument.StoryRanges         If rStory.StoryType = wdPrimaryFooterStory Or _           rStory.StoryType = wdPrimaryHeaderStory Then             For i = rStory.Shapes.Count To 1 Step -1                 rStory.Shapes(i).Delete             Next i         End If     Next rStory End Sub

Beachten Sie, dass alle Formen in der Kopf- oder Fußzeile gelöscht werden, nicht nur Linien. (Es gibt keine Möglichkeit, den Inhalt einer Grafikform von einer anderen zu unterscheiden.)

Natürlich könnte es einen viel einfacheren Weg geben, mit der Situation umzugehen, ohne dass ein Makro erforderlich ist:

  1. Öffnen Sie das Word-Dokument, das aus der PDF-Datei konvertiert wurde.

  2. Öffnen Sie ein brandneues Dokument. (Sie sollten jetzt zwei Dokumente gleichzeitig geöffnet haben.)

  3. Drücken Sie im konvertierten Dokument Strg + A. Dadurch wird alles im Dokument ausgewählt.

  4. Drücken Sie Strg + C. Dies kopiert alles in die Zwischenablage.

  5. Wechseln Sie zum brandneuen Dokument.

  6. Stellen Sie sicher, dass die Registerkarte Home des Menübands angezeigt wird.

  7. Klicken Sie auf den Abwärtspfeil unter dem Einfügewerkzeug. Word zeigt eine Vielzahl von Einfügeoptionen an.

  8. Klicken Sie auf das Werkzeug Nur Text behalten. (Es sieht aus wie eine Zwischenablage mit dem Buchstaben A unten rechts.) Word fügt unformatierten Text aus der Zwischenablage in das Zieldokument ein.

Dieser Ansatz sollte alle Arten von Grafik- und Formatierungsartefakten beseitigen, die durch den PDF-Konvertierungsprozess in das Dokument eingeführt wurden.

Das Ergebnis ist ein „sauberes“ Dokument, das Sie beliebig formatieren können.

Dieser Ansatz ist besonders einfach, wenn Sie Stile im gesamten Dokument implementiert haben und anwenden können.

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