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

如果在运行代码之前没有打开任何窗口，则没有问题。 如果我当时打开了另一个Word文档，则在第一个“ Find命令时发生错误； 它曾经发生在ClearFormatting行。 我将其注释掉，然后发生在Find.Text行。 我有正确的对象库引用和导入。

Answer 1

我知道了，我实际上并没有指定要选择的文档。 通过使用

wrdApp.ActiveDocument.ActiveWindow

我能够解决问题。