Thema Datum  Von Nutzer Rating
Antwort
Rot Neues Dokument aus Vorlage erstellen, Text Suchen und ersetzen
24.07.2021 20:11:23 Binaeg
NotSolved
25.07.2021 12:41:40 Gast63462
NotSolved

Ansicht des Beitrags:
Von:
Binaeg
Datum:
24.07.2021 20:11:23
Views:
173
Rating: Antwort:
  Ja
Thema:
Neues Dokument aus Vorlage erstellen, Text Suchen und ersetzen

Hallo zusammen,

nachdem ich nun einen ganzen Tag mich daran versucht habe und nicht die richtige Lösung gefunden habe, ist das Forum meine letzte Hoffnung.

Was möchte ich erreichen?
Ich habe eine Word Vorlage (.dotm Datei), anhand derer ich ein neues Dokument erstelle.
Im neuen Dokument soll dann ein bestimmter Text ausgetauscht werden durch einen anderen Wert.
Die Datei soll dann mit dem ersetzten Text gespeichert werden.

Das klappt bereits:
- Erstellen der neuen Datei
- Speichern der neuen Datei

Folgendes passiert, wenn ich versuche, Text zu ersetzen:
Der zu ersetzende Text wird in der Vorlage ersetzt. Die neue Datei bleibt unberührt.

Was habe ich probiert, um das Problem zu lösen?
- Aktivieren der Word Instanz, in der das neue Dokument ist
- Selection und Range setzen (schwierig für mich zu kontrollieren, ob das richtige im Selection Object ist oder nicht)

So sieht mein Code aus:

'Platzierungsdatei öffnen
Set excel = CreateObject("excel.application")
excel.Workbooks.Open FileName:=pfadUrkunden

'Word Instanz öffnen
    Dim wdDocument As Object
    Dim Word As Object
    Set Word = CreateObject("Word.Application")
    
    Do While excel.Worksheets("TN").Cells(iIndex, 1).Value <> ""
        sName = excel.Worksheets("TN").Cells(iIndex, 1).Value
        
        Set wdDocument = Word.Documents.Add(vorlagePfad)
        Word.Visible = True
        '[Vorname Nachname] ersetzen
        Word.Activate
        ActiveDocument.Shapes.Range(Array("Textfeld 2")).Select
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "[Vorname Nachname]"
            .Replacement.Text = sName
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        
        ausgabeOrdner = ausgabeOrdner & "\" & sName
        wdDocument.SaveAs (ausgabeOrdner)

        '+55 um nur einen Eintrag zu testen
        iIndex = iIndex + 55
    Loop
    
    Word.Quit
    Set Word = Nothing

    excel.Quit

Ich habe Office 365 und versuche das Programm aus der .dotm Datei zu starten.

Ich bitte um Hilfe und freue mich über jede Idee!

 

Vielen Dank schonmal!


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 Neues Dokument aus Vorlage erstellen, Text Suchen und ersetzen
24.07.2021 20:11:23 Binaeg
NotSolved
25.07.2021 12:41:40 Gast63462
NotSolved