MS Office 通配符 - 如何处理 0 或 1 次出现的字符？

Question

我正在使用 VBA 对 Word 文档进行查找和替换。我遇到的问题是通配符不支持字符的“0 或 1 次出现”。该文档具有 |tag| 形式的标签。和 |结束标签|。根据具体的项目，标签之间的内容要么被保留，要么被删除。但是，如果存在，我还希望查找/替换删除 |Endtag| 末尾的换行符。通配符表达式"|" & tagname & "|*|End" & tagname & "|" & vbCr 不起作用，因为它明确要求末尾有一个换行符。

有干净的替代品吗？

Answer 1

尝试：

"|" & tagname & "|*|End" & tagname & "[|^13]{1,}"

Answer 2

经过一些实验，我找到了更好的方法：

'find text without considering newline
Do While Selection.Find.Execute(FindText:=x)
    'if next character after selection is newline:
    If Selection.Next(unit:=wdCharacter) = Chr(13) Then
        'expand selection by one character
        Selection.MoveEnd unit:=wdCharacter, count:=1
    End If
    ran.Delete
Loop