Public pfad
Public MS_word As Object
Public erge
 Sub Document_oeffnen()
    Dim weiterl As Boolean
    Dim meinbereich As Object
    pfad = "C:\Pfad\Datei.txt"
    Set MS_word = CreateObject("Word.Application.8")
    MS_word.Visible = True
    MS_word.documents.Open pfad
    MS_word.Options.CheckSpellingAsYouType = False
' jetzt das Problem suchen und ersetzen:
    MS_word.activedocument.Content.Find.Execute FindText:="suchfolge", _
      ReplaceWith:="ersetzen", Replace:=wdReplaceAll