简单的 Word VBA 替换宏答案

【问题标题】：Simple Word VBA replacement macro简单的 Word VBA 替换宏
【发布时间】：2012-06-13 16:24:09
【问题描述】：

我正在尝试搜索 Word 文档并用指定值替换特定字符串（目前使用硬编码值“Special”）。该宏清楚地表明它在 Word 编辑器中找到了正确的文本，但替换功能不起作用。这是我绝对的第一次 VBA 体验，所以如果可能的话，我希望能得到一些帮助。以下代码是宏...

    Sub Test()
'
' Test Macro
'
'
    Documents.Open FileName:="C:\Users\abensch\Documents\NANTDocMerge\DMID - Backups\System Clock Ability.docx", _
        ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", _
        Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, _
        XMLTransform:=""
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Special"
        .Replacement.Text = "Potato"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

End Sub

我不确定 Select.Find 中的大多数指定参数是否是必需的，并且删除它们似乎不会影响宏的性能，但我认为为了安全起见我会保留它们。我想知道这是否可能是 Word 格式问题，尽管我尝试使用两个 ClearFormatting 调用删除所有格式。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

如果要全部替换，则更改

Selection.Find.Execute

到

Selection.Find.Execute Replace:=wdReplaceAll

如果您只想替换第一个实例而不是全部，请使用此

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "Special"
    .Replacement.Text = "Potato"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
With Selection
    If .Find.Forward = True Then
        .Collapse Direction:=wdCollapseStart
    Else
        .Collapse Direction:=wdCollapseEnd
    End If
    .Find.Execute Replace:=wdReplaceOne
End With

【讨论】：