Dim myWordApp As Object = CreateObject("Word.Application")

        Dim fo As Object = myWordApp.Selection.Find
        With fo
           '...
        End With
 
        fo.Execute()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist