|
Hallo,
ich möchte folgende funktion bewirken:
1. Über Excel-Dokument Word-Datei erstellen
2. Textmarken in Word_Datei füllen
3. Refs in Word-Datei Aktualisieren
4. Word-Datei als PDF speichern
die Refs bekomme ich leider nicht aktualisiert. :(
Ich erhalte immer die Meldung: Fehler! Verweisquelle konnte nicht gefunden werden.
Sub Dokument_Erstellen()
Dim wordapp As New Word.Application
Dim doc As Word.Document
'1.0 Word sichtbar machen
wordapp.Visible = True
'2.0 Word-datei öffnen
Set doc = wordapp.Documents.Open("C:\User\Dokument.docx")
'3.0 Word-Datei mit Excel-Daten füllen
doc.Bookmarks("Kunde").Range.Text = Übersicht.Range("B8").Value
doc.Bookmarks("Telefon").Range.Text = Übersicht.Range("J8").Value
'4.0 Textmarken updaten
doc.fields.update
'5.0 Word-Datei als PDF speichern
doc.ExportAsFixedFormat ThisWorkbook.Path & "\Dokument" & ".pdf", wdExportFormatPDF
'6.0 Word-Datei schließen
doc.Close SaveChanges:=False
'6.1 Word-Applikation schließen
wordapp.Quit
End Sub
|