Word.application.Selection.Find.Text Mit mehreren Word-Anwendungen geöffnet

Question

Ich habe ein Problem, wo, wenn ich die Word.Application.Selection.Find Satz von Befehlen verwende, stoße ich in eine NullReferenceException. In diesem Programm initialisieren ich ein neues Word-Dokument als solche:

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 

Wenn ich keine Fenster offen vor dem Ausführen von Code, ich habe kein Problem. Wenn zu dem Zeitpunkt ein anderes Worddokument geöffnet ist, tritt der Fehler beim ersten Befehl Find auf; es kam an der Linie ClearFormatting vor. Ich habe es auskommentiert, dann ist es auf der Find.Text Linie aufgetreten. Ich habe die richtigen Objektbibliotheken referenziert und importiert.

Answer 1

Ich habe es herausgefunden, ich habe nicht wirklich angegeben, welches Dokument ausgewählt werden soll. Unter Verwendung

wrdApp.ActiveDocument.ActiveWindow 

konnte ich das Problem lösen.