使用Visual Basic 2010查找并替换Word文档（.doc）中的特定文本

Question

我正在使用Visual Basic 2010 Express Edition，我的目标是读取整个.doc文件，并用一个新单词替换一个特定的单词，并在按下命令按钮时打印新编辑的.doc。

我已经在该论坛中尝试过代码，但我认为它仅适用于.txt-请参阅this question。

而且我看不到有什么可以帮助我here。

Answer 1

这将替换所有事件...

Sub FindAndReplace(findText, replaceText)
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = findText
            .Replacement.Text = replaceText
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub