在vba中，如何跳过前2行的执行

Question

在编写单词宏时，我发现在前两行插入启动命令按钮很有用，这样就可以随时保存文档并插入各种文本进行本地处理。

例如，以下宏删除文档中的所有回车符，并链接到位于第一行的命令按钮“DelAllCRLF”。当我按下按钮时，它会被删除，因为第一行被视为回车，虽然它包含按钮！

Private Sub DelAllCRLF_Click()
  ActiveDocument.Content = _
  Replace(ActiveDocument.Content, vbCr, " ")
End Sub

请协助让宏从第3行开始执行。

Answer 1

我不确定我是否理解了意图，并且在功能区上使用按钮似乎是一个更好的解决方案，但您可以从第三段开始替换文本（vbCr是段落分隔符）：

ThisDocument.Range(ThisDocument.Paragraphs(3).Range.Start) _
    .Find.Execute vbCr, Replacewith:=" ", Replace:=wdReplaceAll

Application.ScreenRefresh ' optional

Answer 2

可悲的是没有解决，但找到了一个解决方法： 我现在向功能区（或早期版本中的Excel 2003工具栏）添加一个按钮，而不是将它们放在文档空间的开头，因此不会删除它们。

如果我找到上述初步问题的解决方案，我会发布。