在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