Question

我正在尝试删除<和>之间的文本，其中包括2个表。我可以使用通配符搜索来包含多行文本，并使用（\ <）（*）（>）进行替换但这在文本包含表格时不起作用。有任何想法吗？表中的行数也不同。

Answer 1

正确的通配符“查找”表达式为：

\<*\>

尽管如此，您的观察是正确的：它将找不到包含<和>之间的表格的内容。您将需要使用两个查找/替换操作，一个使用上面的表达式，然后另一个使用循环，查找

然后将找到的范围扩展到：

遇到

。

Answer 2

获得解决方案：https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-msoffice_custom-mso_2016/delete-text-between-including-tables/51f09dcb-8c77-41d3-840c-e8e0545f313a?tm=1531844975462&auth=1

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

Word-删除<>之间的文本，包括表格

2 个答案: