Word 2000 integration i VB6 meget langsom

Hej jeg åbner et worddokument fra VB og erstatter en del ord og tilføjer til nogle tabeller. Dette går meget langsomt op til 3 minutter.
Jeg benytter følgende kommandoer:

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

Dim mytable As Word.Table
Dim newrow As Word.Row
Set mytable = WordDoc.Tables(2)
With WordDoc.Characters.Last
Set newrow = mytable.Rows.Add()
                newrow(1).Range.InsertAfter \"Celle1\"
                newrow(2).Range.InsertAfter \"Celle2\"
                newrow(3).Range.InsertAfter \"Celle3\"
end with

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

Er der nogle der har nogle ideer til optimeringer? de indsatte værdier hentes fra en access database disse kunne evt. hentes direkte fra word. En halvering af tiden vil desværre ikke være tilfredsstillende