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