☰

Makro „Massenweises Suchen und Ersetzen für Bilder“ – Microsoft Word 2013

tag-icon • tag-icon microsoft-word macros find-and-replace
Makro „Massenweises Suchen und Ersetzen für Bilder“ – Microsoft Word 2013

Ich habe dieses Makro, das in der Lage ist, mehrere Word-Dokumente in großen Mengen zu suchen und zu ersetzen. Ich kann Bilder suchen und ersetzen (innerhalb einer Kopfzeile), aber als ich es in meinen Makrocode implementiert habe, scheint es es einfach zu ignorieren und keine Bilder zu suchen und zu ersetzen. Ich bin mir nicht sicher, warum das so ist, da es keine Fehler gibt. Für jeden Tipp wäre ich sehr dankbar. Danke!!

Sub FindandReplaceTextPic()
Dim Directory As String
Dim FType As String
Dim FName As String

Directory = "C:\Users\pieria\Desktop\TempPics"
FType = "*.docx"

ChDir Directory
FName = Dir(FType)
' for each file you find, run this loop
Do While FName <> ""
    ' open the file
    Documents.Open FileName:=Directory & "\" & FName

    ' search and replace the company name
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "CompanyA"
        .MatchCase = True
        .Replacement.Text = "CompanyB"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'search and replace picture from clipboard
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "^g"
   .Replacement.Text = "^c"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
    ' save and close the current document
    ActiveDocument.Close wdSaveChanges

    ' look for next matching file
    FName = Dir
Loop
End Sub

Antwort1

Ich würde jeden StoryRange (einschließlich Überschriften) durchlaufen und die .Find-Methode des Bereichs anstelle des Auswahlobjekts verwenden.

Antwort2

So suchen und ersetzen Sie Bilder in MS Word

MS-Word kann in dem oben genannten Szenario helfen. Es gibt eine automatische Möglichkeit, alle Bilder in einem Dokument zu finden und sie dann alle durch ein neues Bild zu ersetzen.

Bitte beachten Sie, dass diese Methode alle Bilder findet und durch ein neues ersetzt. Mit dieser Methode können wir bei den Bildern nicht selektiv vorgehen. Hier sind die Schritte:

  1. Öffnen Sie das Microsoft Word-Dokument, in dem der Ersetzungsvorgang durchgeführt werden soll.
  2. Fügen Sie das neue Bild oben im Dokument ein.
  3. Wählen Sie das neu eingefügte Bild aus und drücken Sie Ctrl+ C, um es zu kopieren.
  4. Löschen Sie nun das neu eingefügte Bild.
  5. Drücken Sie Ctrl+ H, um das Feld „Suchen und Ersetzen“ zu öffnen.
  6. Geben Sie ^gin das Feld „Suchen nach“ und ^cin das Feld „Ersetzen durch“ ein.

Methode zum Suchen aller Bilder und Ersetzen durch ein neues.

Drücken Sie jetzt die Schaltfläche „Alle ersetzen“, um die Magie zu sehen!

Alle Bilder wurden in MS Word ersetzt.

Sie werden sehen, dass alle Bilder im Dokument durch das neue Bild ersetzt werden. Natürlich werden durch den Ersetzungsvorgang auch die Bilder ersetzt, die Sie nicht ersetzen wollten. In einem solchen Fall müssen Sie möglicherweise die Bilder, die nicht ersetzt werden sollten, erneut einfügen. Diese Methode ist in einem Szenario nützlich, in dem:

  1. Das Dokument enthält nur die Bilder, die ersetzt werden sollen
  2. Das Dokument enthält eine große Anzahl von Bildern, die ersetzt werden müssen, und eine kleinere Anzahl von Bildern, die nicht ersetzt werden sollen

Das erste Szenario ist unkompliziert. Im zweiten Szenario müssen Sie viel weniger manuelle Arbeit verrichten, da Sie die als Nebeneffekt ersetzten Bilder erneut einfügen.

Die Methode funktioniert, indem alle Grafiken (gekennzeichnet durch ^g) durch den Inhalt der Zwischenablage (gekennzeichnet durch ^c) ersetzt werden. Daher können Sie im Wesentlichen alle Bilder durch alles ersetzen, was Sie in die Zwischenablage kopieren können.

Um die Seitennummerierung Ihres Dokuments beizubehalten, sollten Sie ein neues Bild derselben Größe verwenden.

Ich hoffe, dieser MS-Word-Tipp war hilfreich für Sie. Wenn Sie Fragen zu diesem Thema haben, können Sie sie mir gerne in den Kommentaren stellen. Ich werde versuchen, Ihnen zu helfen. Vielen Dank, dass Sie TechWelkin verwenden.

Verwandte Artikel für weitere Informationen:

  1. MS Word: So finden und ersetzen Sie Zahlen, Ziffern und Zahlen
  2. Formatierung in MS-Word suchen und ersetzen
  3. Mehrfaches Suchen und Ersetzen in MS Word mithilfe eines Makros
  4. Ersetzen Sie Zeile, Absatz, Wagenumbruch in MS Word
  5. Geben Sie das °-Grad-Symbol in MS Word, HTML und Unicode ein
  6. MS Word: So wählen Sie einen vertikalen rechteckigen Bereich aus

verwandte Informationen