问 基于Word文档中变量内部字符的启动/结束字符查找字符串&替换

EN

目前，我正在使用Excel搜索整个word文档，以根据起始字符和结束字符查找可识别的字符串。中间的角色会有所不同。开始字符总是<<，结尾字符永远是>>。示例<<文本删除>>。我试图找到所有的实例，并删除它们，包括<<>>字符。下面是我的当前代码，它可以直接删除文本，但是当我试图添加星号来指定<<和>>之间的任何内容时，它就不再起作用了。

我相信它并不是将*识别为‘任何东西’，但我不知道如何更新才能允许它。任何帮助都是非常感谢的！

Sub AddRemoveWatermark(blWatermarkAction As Boolean, blDeleteText As Boolean, strInitialIdentifier As String, strEndingIdentifier As String)
    'Word Variables
    Dim wrdApplication As Word.Application
    Dim wrdDocument As Word.Document
    Dim wrdSection As Word.section
    Dim strPath As String
    Dim lngCount As Long
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        Set wrdApplication = New Word.Application
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            strPath = .SelectedItems(lngCount)
            Set wrdDocument = wrdApplication.Documents.Open(strPath)
            wrdApplication.Visible = True
            'Delete all starting << and ending >>
            With wrdDocument.Range.Find
                .ClearFormatting
                .Text = strInitialIdentifier & "*" & strEndingIdentifier
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                '.MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Replacement.ClearFormatting
                .Replacement.Text = ""
                .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
            End With
        Next lngCount
    End With
End Sub