vba - 在Word中使用VBA，我怎样才能找到一段特定的文本并在大纲中继续编号

Question

在 Microsoft Word 中使用 VBA，如何自动搜索特定文本，删除该文本并使 Word 继续上一个列表。我可以录制一个在 Word 中单击列表按钮动作的宏，它给了我一些涉及Selection.Range.ListFormat.ApplyListTemplateWithLevel. 我希望能够弄清楚如何找到一段代码，然后自动继续上一个列表。

这是我在代码开始之前所拥有的：

1. 第一句话
2. 第二句
3. 第三句
4. 第四句*/R*第五句

这是代码完成后我想要的：

1. 第一句话
2. 第二句
3. 第三句
4. 第四句
5. 第五句

Answer 1

您能否提供更多背景信息来说明您为什么要这样做？此代码将完成您所要求的（只要列表已经存在，并且*/R*在列表中），但我想有更好的方法。

With Selection.Find
    .Text = "*/R*"
    .Wrap = wdFindContinue
End With
If Selection.Find.Execute = True Then
    Selection.TypeParagraph
End If