Microsoft Word宏VBA用文档标题中的图像替换文本

Question

我有以下VBA代码，它在所有活动文档中查找占位符文本（FindText）并用图像替换文本。当文本位于文档正文中时，此代码正常工作;但是，如果占位符文本位于文档标题中，则文本不会被图像替换。

我的问题是，如果文本位于文档的标题中，如何用图像替换占位符文本？

Sub InsertImagesAllDocuments() 

Dim n, c As Integer 
n = Application.Documents.Count 
c = 1 

Dim r As range 

Windows(c).Activate 


Do 
Dim imageFullPath As String 
Dim FindText As String 
imageFullPath = "C:\Logo.jpg" 
FindText = "TextPlaceholder" 
    With Selection 
    .HomeKey Unit:=wdStory 

    With .Find 
     .ClearFormatting 
     .text = FindText 
     ' Loop until Word can no longer 
     ' find the search string, inserting the specified image at each location 
     Do While .Execute 
      Selection.MoveRight 
      Selection.InlineShapes.AddPicture FileName:=imageFullPath, LinkToFile:=False, SaveWithDocument:=True 
     Loop 

    End With 
End With 


    c = c + 1 

    On Error Resume Next 
    Windows(c).Activate 

Loop Until c > n 



End Sub 

Answer 1

您将希望打开标题以替换文本。你可以这样做，用这行代码

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
'now the header is accessible, run your code 
    With Selection 
    .HomeKey Unit:=wdStory 

     With .Find 
     .ClearFormatting 
     .text = FindText 
     ' Loop until Word can no longer 
     ' find the search string, inserting the specified image at each location 
     Do While .Execute 
      Selection.MoveRight 
      Selection.InlineShapes.AddPicture FileName:=imageFullPath, LinkToFile:=False, SaveWithDocument:=True 
     Loop 

    End With 
End With