Erstat ord i Word/Excel fra VB
Jeg har et lille program, hvor jeg gerne vil åbne et EXCEL ark, erstatte ordene <NAVN>, <ADRESSE> og sådan noget....VB'en henter det nemlig ind fra en ACCESS database, og så vil jeg bruge dataerne til at erstatte texten i EXCEL...
Jeg har fået det til at virke med WORD:
Set WordDoc = objWord.Documents.Add(App.Path & "\WORD1.doc")
Dim objWordApp
Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = True
objWordApp.Documents.Open (App.Path & "\WORD1.doc")
objWordApp.Visible = True
objWordApp.Selection.Find.Execute "<TEST1>", False, False, False, False, False, True, wdFindContinue, False, GOD TEST 1.Text, 2
objWordApp.Selection.Find.Execute "<TEST2>", False, False, False, False, False, True, wdFindContinue, False, GOD TEST 2, 2
