Question

我是 VBA 的新手，不得不写一点Makro来工作。此Makro将用于在 Word文档中搜索一组特殊符号。

到目前为止，我找到了一种搜索字符串并标记它的方法。然而它只能用普通的字符来起作用。问题是如何在搜索中包含符号。

到目前为止我的代码是：

With Selection.Find
    .ClearFormatting
    .Text = "String"
    .Execute Forward:=True
End With

需要在文档中找到符号字符串：[•]

感谢您的建议

Answer 1

这件事对我来说很简单：

Public Sub Testme()

    With Selection.Find
        .ClearFormatting
        .Text = "•"
        .Execute Forward:=True
    End With

End Sub

如果这是子弹格式而不是文本中的简单点，那么您可以使用类似这样的内容来选择项目符号段落：

Sub FindBullet()
    Dim rngTarget As Word.Range
    Dim oPara As Word.Paragraph

    Set rngTarget = Selection.Range
    With rngTarget
        Call .Collapse(wdCollapseEnd)
        .End = ActiveDocument.Range.End

        For Each oPara In .Paragraphs
            If oPara.Range.ListFormat.ListType = _
               WdListType.wdListBullet Then
                oPara.Range.Select
                Exit For
            End If
        Next
    End With
End Sub

Source here

如何在VBA Makro for Word中搜索符号

1 个答案: