VBA（Word 2016）搜索和替换字符串，但搜索字符串和替换字符串都超出字符限制

Question

我需要通过用MS Word中的另一个子句替换一个子句来更新多个合同。每个合同的条款都相同。

我遇到的第一个问题是我的搜索字符串和替换字符串都超过了255个字符的限制。我看过了，但是没有建议的解决方案对我有用。

VBA中是否有办法让我绕过这个255个字符的限制？

Answer 1

当然，您可以将“查找和替换”字符串分成较小的块，但是要替换整个字符串需要做很多事情。或者您可以使用如下宏：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "On the Insert tab, the galleries include items that are designed * your current document look."
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Text = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Maecenas porttitor congue massa. " & _
      "Fusce posuere, magna sed pulvinar ultricies, purus lectus malesuada libero, sit amet commodo " & _
      "magna eros quis urna. Nunc viverra imperdiet enim. Fusce est. Vivamus a tellus."
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

要查找的文本是：

在“插入”选项卡上，画廊包括旨在与文档的整体外观协调一致。你可以用这些插入表格，页眉，页脚，列表，封面和其他文档构建块。创建图片，图表或图，它们也与您当前的文档外观协调。

请注意使用通配符星号来缩短宏代码中的“查找”字符串。这样，您需要做的就是确保较短的Find字符串具有足够的唯一性，以避免错误的匹配。