Thema Datum  Von Nutzer Rating
Antwort
Rot Neu erstelltes Dokument wird nicht bearbeitet
23.04.2023 15:13:23 Jörg S
NotSolved
23.04.2023 16:47:32 ralf_b
Solved
23.04.2023 22:14:29 Jörg S
Solved

Ansicht des Beitrags:
Von:
Jörg S
Datum:
23.04.2023 15:13:23
Views:
267
Rating: Antwort:
  Ja
Thema:
Neu erstelltes Dokument wird nicht bearbeitet

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Neu erstelltes Dokument wird nicht bearbeitet
23.04.2023 15:13:23 Jörg S
NotSolved
23.04.2023 16:47:32 ralf_b
Solved
23.04.2023 22:14:29 Jörg S
Solved