VBA中selection对象的使用，如何把selection定位到需要的文档

[weixin_39969131]

源码如下，我希望采用selection对WrdDoc1这个文档进行搜索，获得所有样式为"标题 1"的内容。但是在运行时会定位到我手动打开的另外的word文档进行搜索，哪位大侠指正下我哪里错了？



===========================================================
Private Sub CommandButton1_Click()
Set myApp = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！
myApp.Visible = True

Mypath = ThisDocument.Path & "\" & CONST_FILENAME_1
Set WrdDoc1 = myApp.Documents.Open(Mypath) '打开这个Word文件！

'激活当前要搜索的文档
WrdDoc1.Activate

Dim wdSty$, strTxt$
wdSty = "标题 1"
'设置搜索参数
With Selection
.HomeKey unit:=wdStory, Extend:=wdMove '光标移到文档首
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(wdSty) '设置查找文本的样式为“标题 1”
End With

'循环搜索文档里所有为“标题 1”样式的段落，
Do While Selection.Find.Execute(findtext:="*^13", MatchWildcards:=True, Format:=True)
strTxt = Selection.Text '获取符合样式的文本
'.......在这里录入处理代码

Selection.Move unit:=wdWord, Count:=1
If Selection.MoveRight <> 1 Then '文档尾退出
Exit Do
Else
Selection.MoveLeft
End If
Loop

End Sub

[舉杯邀明月]

我觉得，把你的代码中 Selection 都改成 WrdDoc1.Selection
应该就可以限制在你“指定”的那个文档中了吧。