请教VBA批量替换无法替换脚注问题

pxzllq

请教各位，我手头有以下代码，用来批量替换一个Excel列表中的单词。这段代码在Word的正文部分运行良好，但是完全不影响页眉和页脚中的文字。有什么办法可以让这段代码查找和替换Word脚注里的文字吗？

1. Sub Replace()
   
2. Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
   
3. Set ex = New Excel.Application
   
4. Set boo = ex.Workbooks.Open("C:\replace.xlsx")   
   
5.     ex.Visible = False
   
6.     Set shee = boo.Worksheets(1)
   
7. With shee
   
8. For i = 1 To .Range("b65536").End(xlUp).Row
   
9. ActiveDocument.Content.Find.Execute MatchWholeWord:=True, findText:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True
   
10. Next
    
11. End With
    
12. boo.Close
    
13. ex.Quit
    
14. Set boo = Nothing
    
15. Set ex = Nothing
    
16. End Sub
    
17. 
    

复制代码