如何用vba解出word文档中所有标题2

[zone2000]

rt,怎么写啊，

[大雄]

使用前提：只能打开一个文档(即要查找标题2的文档)。因为我会将标题2集中放到第2个(新建的)文档。

点击“工具”->宏->宏->宏名输入“找标题2”->创建->粘贴如下代码：

Sub 找标题2()
Dim a As Boolean
Selection.HomeKey Unit:=wdStory
Documents.Add DocumentType:=wdNewBlankDocument
Windows(1).Activate

With Selection.Find
.Style = ActiveDocument.Styles("标题 2")
.Forward = True
.Wrap = wdFindStop
.MatchByte = True
End With

Do
If Selection.Find.Execute = False Then Exit Do
Selection.Copy
Windows(2).Activate
Selection.Paste
Windows(1).Activate
Loop
End Sub

按F5键运行就会看到所有标题2都复制到新建的文档里。

[zone2000]

555,这个find不能往下走，一直都在复制第一个标题?