Hallo Forum Team,
brauch von euch eure Hilfe.
Ich möchte gerne über Einträge aus einer Tabelle, immer die Zeile, die selektiert ist, Werte aus dem jeweiligen Datensatz in eine Word-Vorlage hineinschreiben.
Das Word-Dokument hat Formularfelder, diese sind als Textmarken mit einem Namen hinterlegt, die auch gefüllt werden.
Es gibt in Word 5 Checkboxen, die mit einem Namen Textmarken versehen sind, wenn in dem aktuellen Datensatz einer dieser Textmarken für die Checkboxen hinterlegt ist, soll diese Checkbox aktiviert werden, und das macht es nicht.
Dann habe ich auch das Problem das die Speicherung in PDF auf einen UNC Pfad nicht funktioniert, hier werden aus den aktuellen Zellen der Name der PDF-Datei zusammengefügt.
Sub ExportPDF()
Dim wrdApp
Dim wrdDoc
Dim i As Integer
Dim Pfad As String
Pfad = "\\Pfad\Word.docx"
On Error GoTo ErrorExit
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(Pfad)
wrdApp.Visible = True
Application.ScreenUpdating = False
wrdDoc.FormFields("Textmarke1").result = Cells(ActiveCell.row, 1).value
wrdDoc.FormFields("Textmarke2").result = Cells(ActiveCell.row, 2).value
wrdDoc.FormFields("Textmarke3").result = Cells(1, 2).value & "-" & Cells(ActiveCell.row, 3).value
wrdDoc.FormFields("Textmarke4").result = Cells(ActiveCell.row, 4).value
wrdDoc.FormFields("Textmarke5").result = Cells(ActiveCell.row, 5).value
wrdDoc.FormFields("Textmarke6").result = Cells(ActiveCell.row, 6).value
For i = 1 To 5
If wrdDoc.FormFields(i).CheckBox.value = True Then 'alle Checkboxen deaktivieren
wrdDoc.FormFields(i).CheckBox.value = False
End If
Next i
If Not Cells(ActiveCell.row, 2).value = Cells(ActiveCell.row, 2).value Then
wrdDoc.FormFields(Cells(ActiveCell.row, 2).value).CheckBox.value = False
Else
wrdDoc.FormFields(Cells(ActiveCell.row, 2).value).CheckBox.value = True
End If
wrdDoc.ExportAsFixedFormat ThisWorkbook.Path & "\\Speichern_PDF\ " & _
LTrim(Cells(ActiveCell.row, 1).value) & "_" & Format(Cells(ActiveCell.row, 2).value, "YYYY-MM-DD") & "_" & _
Cells(ActiveCell.row, 3).value & "_" & _
Cells(ActiveCell.row, 4).value & ".pdf", wdExportFormatPDF
'wrdDoc.PrintOut
wrdDoc.Saved = True
wrdDoc.Close
App.Quit
ErrorExit:
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ScreenUpdating = True
End Sub
Danke im Voraus