Hallo,
ich möchte gerne Protokolle für Wohnungen erstellen. Hierfür existiert ein Protokoll (WHG1) welche ich mittels Word-VBA auch duplizieren und umbenennen kann. Das klappt auch. Ich möchte dann aber im neu erstellten Dokument auch die Nummern WHG1 zu WHG2 (Suchen und Ersetzen) usw. ändern. Das neu erzeugte Dokument wird nicht angesprochen, nur der Text in der Quelldatei wird geändert. Woran liegt das?
Gruß
Jörg
Sub test()
Dim oFSO As Object
Dim i As Integer
i = 2
Do While i < 5
Set oFSO = CreateObject("Scripting.FileSystemObject")
Call oFSO.CopyFile("C:\Users\Severin\Documents\VBA\WHG1.docx", "C:\Users\Severin\Documents\VBA\WHG" & i & ".docx", True)
Set wordapp = CreateObject("word.Application")
wordapp.Documents.Open "C:\Users\Severin\Documents\VBA\WHG" & i & ".docx"
wordapp.Visible = True
With ActiveDocument.Content.Find
.Text = "WHG1"
.Replacement.ClearFormatting
.Replacement.Text = "WHG" & i
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
i = i + 1
Loop
End Sub
|