vba - 选择两个单词之间的文本并删除空行

Question

我正在尝试删除两个占位符之间的 word 文档中出现的空行。

1. 我不确定如何在整个文档中找到占位符的位置。

2. 我不确定如何在占位符之间搜索并用单个回车替换多个回车。

我试图在这里转换代码，但无法正常工作。

Answer 1

如果您的占位符始终相同，您可以从 Word 的“查找和替换”对话框中完成整个操作。无需代码。

例如，要替换多个回车符：

• Ctrl+H
• 打开“使用通配符”
• 查找： (Placeholder1)^13{2,}(Placeholder2) \包括括号
• 替换：\1 ^13 \2

如果您试图将其合并到更大的代码块中：

With Selection.Find
    .Text = "(Placeholder1)^13{2,}(Placeholder2)"
    .Replacement.Text="\1" & " ^13 " & "\2"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute
End With

让我知道这是否适合你。