圖片巨集的批次尋找和取代 - Microsoft Word 2013

Question

我有這個宏，能夠在多個 Word 文件中進行批量查找和替換。我能夠找到和替換圖片（在標題內），但是當我在巨集程式碼中實現它時，它似乎只是忽略它並且不查找和替換任何圖片。我不確定為什麼會發生這種情況，因為沒有錯誤。任何提示將非常感謝。謝謝！

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

Answer 1

我將循環遍歷每個storyRange（包括標題）並使用範圍的.Find 方法而不是選擇物件。

Answer 2

如何在 MS Word 中尋找和取代圖片

MS-Word 可以在上述場景中提供協助。有一種自動方法可以查找文件中的所有圖像，然後將它們全部替換為新圖像。

請注意，此方法將找到所有圖像，並將所有圖像替換為新圖像。使用這種方法，我們不能對影像進行選擇性。步驟如下：

1. 開啟要進行替換的 Microsoft Word 文件。
2. 將新圖像插入文件頂部。
3. 選擇新插入的影像，然後按Ctrl+C進行複製。
4. 現在刪除新插入的影像。
5. 按Ctrl+H開啟「尋找與取代」方塊。
6. 放入^g「尋找內容」方塊和^c「替換為」方塊中

尋找所有圖像並將其替換為新圖像的方法。

現在按下「全部替換」按鈕即可看到神奇效果！

MS Word 中的所有圖片已替換。

您將看到文件中的所有圖像都將被新圖像取代。當然，替換操作也會替換掉你不想替換的影像。在這種情況下，您可能需要重新插入不需要替換的影像。此方法在以下場景中很有用：

1. 該文件僅包含那些要替換的圖像
2. 該文件包含大量需要替換的圖像和少量不應替換的圖像

第一個場景很簡單。在第二種情況下，透過重新插入作為副作用而被替換的圖像，您將完成更少的手動工作。

此方法的工作原理是將所有圖形（由 表示^g）替換為剪貼簿內容（以 表示^c）。因此，本質上，您可以將所有圖像替換為可以複製到剪貼簿的任何內容。

為了保持文件的分頁完好無損，您應該使用相同大小的新圖像。

我希望這個 MS-Word 技巧對您有用。如果您對此主題有任何疑問，請隨時透過評論向我提問。我會盡力幫助你。感謝您使用 TechWelkin。

欲了解更多信息，請參閱相關文章：

1. MS Word：如何尋找並取代數字、數字、數字
2. 在 MS-Word 中尋找並取代格式
3. 使用巨集在 MS Word 中進行多重查找和替換
4. 在 MS Word 中替換行、段落、回車符
5. MS Word、HTML、Unicode 中的° 度符號
6. MS Word：如何選擇垂直矩形區域