Excel Daten nach Word kopieren
24.06.2021 08:48:44
Klaus Dillinger
Hallo Forum,
mit diesem Skript füge ich Daten aus einer Excel Datei in Textfelder in einem Word Dokument.(doku.dotx) ein.
Das funktioniert auch soweit ganz gut. Nun möchte ich ein weiteres Dokument füllen (doku1.dotx) in dem nur zwei der Textfelder
benötigt werden. Hier läuft das Skript beim zweiten Dokument nun auf einen Fehler da die restlichen Textfelder aus dem ersten Dokument fehlen.
Fehlermeldung: "Das Element ist nicht in der Sammlung vorhanden"
Gibt es eine Möglichkeit, dass nicht vorhandene Textfelder in einem Dokument ignoriert werden.
Ziel wäre es über eine Excel Datei mehrere Word Dokumente mit Daten zu befüllen.
Danke wenn jemand eine Idee (Lösung) hat
Sub vonExcelnachWordkopieren()
Dim Dokument As Object
Dim Dokument1 As Object
Dim AppWord As Object
Set AppWord = CreateObject("Word.Application")
Set Dokument = AppWord.Documents.Add("D:\Wordtest\doku.dotx")
'zweites Dokument
Set Dokument1 = AppWord.Documents.Add("D:\Wordtest\Doku1.dotx")
AppWord.Visible = True
Dokument.Activate
Dokument.Bookmarks("Nachname").Range.Text = Range("Nachname")
Dokument.Bookmarks("Vorname").Range.Text = Range("Vorname")
Dokument.Bookmarks("Geb").Range.Text = Range("Geb")
Dokument.Bookmarks("PLZ").Range.Text = Range("PLZ")
Dokument.Bookmarks("Ort").Range.Text = Range("Ort")
Dokument.Bookmarks("Strasse").Range.Text = Range("Strasse")
Dokument.Bookmarks("Tel").Range.Text = Range("Tel")
Dokument.Bookmarks("Mobil").Range.Text = Range("Mobil")
Dokument1.Bookmarks("Nachname").Range.Text = Range("Nachname")
Dokument1.Bookmarks("Vorname").Range.Text = Range("Vorname")
Set Dokument = Nothing
Set Dokument1 = Nothing
Set AppWord = Nothing
End Sub
Hallo Klaus,
dafür gibt es in Word die Methode 'bookmarks.exists'
siehe: https://docs.microsoft.com/en-us/office/vba/api/word.bookmarks.exists
Gruß von Luschi
aus klein-Paris
Hallo Klaus,
mit
If ActiveDocument.Bookmarks.Exists("Nachname") = True Then
Dokument.Bookmarks("Nachname").Range.Text = Range("Nachname")
End if
könntest Du jeweils das Vorhandensein der Textmarke prüfen.
Gruß
Jochen
Vielen Dank, der Tip von Luschi hat mir geholfen.
Ich hätte doch noch eine Frage. Wenn ich das Script jetzt ausführe, werden die aus der Excel gefüllten Word Dokumente bei "Speichern unter"
standardmäßig in "DieserPC\Dokumente" abgespeichert. Ich habe schon verschiedene Save Methoden probiert. Ich bekomme dann aber
immer nur den Ablagepfad für die Exceldatei angeboten. Ich möchte aber einen Ablagepfad für die Word Applikation vorgeben.
Also die gefüllten Dokument.Dotx als Document.docx z. B: im Pfad c:\test\dokumente\.