|
Das ist das ganze Macro. Muss dazusagen dass ich eher ein Laie bin und das teilweise aus Handbüchern und dem Internet zusammengestoppelt habe! Danke dass du dich darum so annimmst!!!
Sub DOCXAendern()
Application.ScreenUpdating = False
Dim Start As Date
Dim ZeileDatei As Long, LastDatei As Long
Start = Time
Dim appWord As Object
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 = "Wein"
.Replacement.Text = "Wein1"
.Forward = True
.Wrap = wdFindContinue
End With
appWord.Selection.Find.Execute Replace:=wdReplaceAll
appWord.ActiveDocument.Close savechanges:=True
Next ZeileDatei
appWord.Application.Quit
Set Datei = Nothing
Set appWord = Nothing
Start = Time - Start
MsgBox "Laufzeit " & Start & ", Geändert: " & LastDatei - 1
Range("A1").Select
Application.ScreenUpdating = True
End Sub
|