vba - 在Word中使用VBA，如何找到特定的文本并在大纲中继续编号

Question

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

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

1. First sentence
2. Second sentence
3. Third sentence
4. Fourth sentence */R*Fifth sentence

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

1. First sentence
2. Second sentence
3. Third sentence
4. Fourth sentence
5. Fifth sentence

Answer 1

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

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