批量查找和替换图片宏 - 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：如何选择垂直矩形区域