通过vba在每个点之前插入单词标题

Question

有一份文件说如下：

Heading Short Intro

1. 我有一个关于堆栈溢出的帐户
   1.1 heya
   1.2嗨
2. 我用它来发布问题
3. 我用它来回答问题

我想将其转换为：

Heading Short Intro - 1

1. 我有一个关于堆栈溢出的帐户
   1.1 heya
   1.2嗨
   

Heading Short Intro - 2

1. 我用它来发布问题

Heading Short Intro - 3

1. 我用它来回答问题

我想知道我如何迭代编号列表集合来实现这个宏。

Answer 1

你可以像这样迭代：

Sub iterateNumberedList()
   Dim oList As Paragraph

   Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst ' go to beginning of doc

   ' for each paragraph
   For Each oList In ActiveDocument.Paragraphs

      ' is it a numbered list of level 1 ?
      If oList.Range.ListFormat.ListType = 4 And oList.Range.ListFormat.ListLevelNumber = 1 Then

         ' move one line above list item
         Selection.MoveUp unit:=wdLine, Count:=1

         ' insert heading text
         Selection.Range.Text = "Heading " & vbCr

         ' format heading text with style 'Heading 1'
         Selection.Range.Style = "Heading 1"

         ' move down two paragraphs
         Selection.MoveDown unit:=wdParagraph, Count:=2
      End If
   Next
End Sub

此代码只是为了让您了解该怎么做。它并不意味着是您问题的最终解决方案。