|
Guten Tag, ich möchte mit diesem Makro anhand einer EXCEL-Liste WORD-Dateien auf einen bestimmten String durchsuchen, wenn gefunden ändern und danach die Datei sichern. Aber die Dateien sind nach dem Durchlauf unverändert. Kann mir bitte jemand helfen?.
.
.
.
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Worksheets("Dateien").Select
LastDatei = Cells(Rows.Count, 1).End(xlUp).Row
For ZeileDatei = 2 To LastDatei
Set Datei = appWord.Documents.Open(Range("A" & ZeileDatei) & Range("B" & ZeileDatei))
With appWord.Selection.Find
.Text = "2020"
.Replacement.Text = "2021"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
appWord.ActiveDocument.Close savechanges:=True
Next ZeileDatei
appWord.Application.Quit
Set Datei = Nothing
Set appWord = Nothing
.
.
.
|