Question

我在Excel中有一个VB脚本，它已经编辑和修改了一些Word文件。我现在试图让它执行查找并替换word文件页脚中的某些文本。我无法弄清楚允许我逐步浏览Word文件的故事范围来执行此查找的命令。取代

现在我已经获得了这段代码，我认为应该这样做，但我得到了一个＆＃34; Argument Not Optional＆＃34;查找突出显示错误。

Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\Raw\Template\" &  strFile, ReadOnly:=True)
...
Dim myStoryRange As Range
For Each myStoryRange In wrdDoc.StoryRanges
    myStoryRange.Find.Execute FindText:=strField, ReplaceWith:=strValue, Replace:=wdReplaceAll, Wrap:=wdFindContinue
Next myStoryRange

有谁知道如何让Excel中的VB脚本执行此功能？

谢谢！

Answer 1

找到解决方案，至少对我的文档而言。

wrdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Find.Execute FindText:=strField, Format:=False, ReplaceWith:=strValue, Replace:=wdReplaceAll, Wrap:=wdFindContinue

我还必须将该行移动到我的代码的早期部分才能工作，因为某些原因我想要在页脚内替换的strField值从来没有＆＃34;使它成为＆＃34;到代码中的那一行。

Answer 2

是的，所以在LOADS执行失败后，其他人一直在尝试这对我有用。我的目标是用Super simple替换单词标题中的字符串：

WordDoc.Sections(1).Headers(1).Range.Find.Execute FindText:=TagName,
 Format:=False,
 ReplaceWith:=TagValue,
 Replace:=wdReplaceAll,
 Wrap:=wdFindContinue

为那些遇到类似需求的用户发布信息。

Excel VB，执行查找＆amp;替换Word文档页脚

2 个答案: