使用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