Ms word Word-删除<&燃气轮机;包括桌子

Ms word Word-删除<&燃气轮机;包括桌子,ms-word,wildcard,Ms Word,Wildcard,我正在尝试删除之间的文本,其中包括两个表。我可以使用通配符搜索包含多行的文本,并使用(\)替换 但当文本包含表格时,这不起作用。有什么想法吗?表中的行数也不同。正确的通配符查找表达式为: \<*\> 遇到。已获得解决方案: Dim rng As范围 Selection.HomeKey wdStory 选择。查找 执行(findText:=“”) rng.选择 选择。删除 环 以 端接头 请添加一个最小的示例。我不能给出一个好的示例,但它是这样的:交叉张贴地址:对于交叉张贴礼仪,请阅

我正在尝试删除<和>之间的文本,其中包括两个表。我可以使用通配符搜索包含多行的文本,并使用(\)替换
但当文本包含表格时,这不起作用。有什么想法吗?表中的行数也不同。

正确的通配符查找表达式为:

\<*\>
遇到。已获得解决方案:

Dim rng As范围
Selection.HomeKey wdStory
选择。查找
执行(findText:=“”)
rng.选择
选择。删除
环
以
端接头

请添加一个最小的示例。我不能给出一个好的示例,但它是这样的:交叉张贴地址:对于交叉张贴礼仪,请阅读:
<
>
Dim rng As Range
 Selection.HomeKey wdStory
  With Selection.Find
      Do While .Execute(findText:="<", Forward:=True, _
      MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
          Set rng = Selection.Range
          rng.End = ActiveDocument.Range.End
          rng.End = rng.Start + InStr(rng, ">")
          rng.Select
          Selection.Delete
      Loop
  End With
  End Sub