Word og XML

Hej her er en løsning:

Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Set WordObj = CreateObject(\"Word.Application\")
Set WordDoc = WordObj.Documents.Open(App.Path + \"\\xxx.doc\")

With WordDoc.Content.Find
    .Execute FindText:=\"<xxx/>\", ReplaceWith:=\"tekst\", Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With

Husk at sætte en reference til word i dit projekt