Word Dokumente aus ExcelVBA öffnen/bearb
06.04.2020 12:59:02
Debugger
Mein Ziel ist es ein Word Dokument aus Excel heraus zu öffnen und bestimmte Wörter dort zu suchen und zu ersetzen.
Hierbei habe ich mir aus dem Internet folgenden Code-Schnipsel zusammengesucht, der auch das machen sollte,was mein Ziel ist:
Sub WordDokumentÖffnen()
Dim AppWD As Object
Dim Dokumente As String
Dokumente = "I:\Aufgaben.docx"
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open Dokumente
With AppWD.Range.Find
.Text = "PRJ"
.MatchCase = True
.Replacement.Highlight = True
.Replacement.Text = "test"
.Execute Replace:=wdReplaceAll
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Jedes Mal wenn ich das
Sub ausführen will, zeigt er mir als Fehler an, dass wdReplaceAll nicht als Variable definiert _
_
ist. Selbst wenn ich dem
Sub allerdings die Variable mit =1 definiere, bricht das Programm ab.
"Objekt unterstützt diese Eigenschaft oder Methode nicht".
Gibt es irgend einen Weg wdReplaceAll einzubinden bzw. welchen Wert füge ich ihm zu?
VG
Peter
