word vba 条件查找和替换

Question

如果下一个单词是“----”，我正在尝试让 MSWord 的 vba 替换一个单词：“an”与“a(n)”。我设法写了这个，但它似乎不起作用。任何想法为什么？ （我也需要对具有相同条件的单词“a”做同样的事情，但还不能完成第一个，所以..） 对了，我没有设定范围，我需要扫描所有文档..

Sub Makro1()
With Selection
  Set Rng = .Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "an"
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    If Selection.Next(Unit:=wdWord, Count:=1) = "---- " Then
    .Find.Replacement.Text = "a(n)"
    End If
    .Find.Execute
  Loop

End With

End Sub

Answer 1

你不需要宏；这一切都可以通过通配符查找/替换来完成，其中：

查找 = [an]{1,2}( [_]{1,})

替换 = a(n)\1

当然，也可以使用通配符查找/替换宏：

Sub Demo()
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "[an]{1,2}( [_]{1,})"
  .Replacement.Text = "a(n)\1"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
End Sub

Answer 2

请尝试以下代码。它采用稍微不同的方法，因为它查找“----”而不是“a”或“an”。

Sub ConditionalReplace()
    ' 10 Jan 2018

    Dim Pos As Long
    Dim n As Integer

    With Selection
        .HomeKey Unit:=wdStory
        .Find.Text = "---- "

        Do While .Find.Execute = True
            Pos = .Start + 1
            .Collapse wdCollapseStart
            .MoveStart wdWord, -1
            If (StrComp(Trim(.Text), "a", vbTextCompare) = 0) Or _
               (StrComp(Trim(.Text), "an", vbTextCompare) = 0) Then
               .Delete
               n = n + 1
            End If
            .SetRange Pos, ActiveDocument.Characters.Count
        Loop
        .HomeKey Unit:=wdStory
    End With
    MsgBox n & " replacements were made."
End Sub

为了寻找另一个标记，例如一个由12个下划线组成的字符串，修改.Find.Text = "---- "这一行变成

.Find.Text = "____________"

如果您不能确定有多少下划线，可以考虑下面的代码 sn-p，它会发现出现六个下划线后跟任何其他文本，包括但不限于另外 6 或 4 个下划线。

.Find.MatchWildcards = True
.Find.Text = "______*"