Word Replace Via Excel 2007
Tobias
ich habe folgendes Problem. Ich möchte gerne über Excel verschiedene Platzhalter mit der Replacefunktion ersetzen. Jedoch geschieht das einfach nicht. Das Programm läuft fehlerfrei ab, jedoch werden die Platzhalter nicht ersetzt.
Ich habe das Problem schoneinmal angesprochen und da trat das Problem anscheinend nur in Office 2007 auf. Weiß jemand Rat wie ich das trotzdem in Office 2007 hinbekommen kann?
Vielen dank schoneinmal.
Hier der Code
Sub replace(doc As Object)
With doc.Content.Find
.Text = "Lücke"
.Replacement.Text = "Hallo"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute replace:=wdReplaceAll
End With
End Sub
Sub ersetzen()
Dim appWRD As Object
Dim objDoc As Object
Set appWRD = GetObject(, "Word.application")
Set objDoc = appWRD.Documents.Open("c:test.doc")
replace objDoc
End Sub