Word.application.Selection.Find.Text在打开多个Word应用程序

Question

我遇到问题，当我使用Word.Application.Selection.Find命令集时，遇到了NullReferenceException。在这个节目，我初始化一个新的Word文档作为这样的：

Dim wrdApp As Word.application = New Word.Application 
Dim wrdDoc As Word.Document = New Word.Document       
wrdApp.Visible = True 

With wrdDoc 
    wrdApp.Selection.Find.ClearFormatting() 
    wrdApp.Selection.Find.Text = sequenceObject(i, 1, 1, 1).cat 
    wrdApp.Selection.Find.Forward = True 
    wrdApp.Selection.Find.Wrap = Word.WdFindWrap.wdFindContinue 
    wrdApp.Selection.Find.Execute 
End With 

当我没有窗户的代码运行前开立的，我也没问题。如果我在此时打开另一个单词文档，则会在第一个Find命令中出现错误;它曾经发生在ClearFormatting线上。我评论它，然后它发生在Find.Text线。我有正确的对象库引用和导入。

Answer 1

我想通了，我没有真正指定要选择哪个文档。通过使用

wrdApp.ActiveDocument.ActiveWindow 

我能解决问题。