Ik wil een document via een macro opslaan als PDF met als bestandsnaam een nummer uit de eerste tabel van het document.
Het opslaan als PDF in de goed map lukt al wel, maar niet met de juiste bestandsnaam
zo ziet de macro er nu uit:
Sub Opslaan_als()
'
' Opslaan_als Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms\ordernummer.pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory _
"C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms"
End Sub
Ik heb al wel een macro geprobeerd met een code waarmee wel de bestandsnaam lukte, maar niet in de juiste map terecht kwam:
Sub Opslaan_als_pdf()
'
' Opslaan_als_pdf Macro
'
'
Dim StrNm As String
Dim path As String
StrNm = Split(ActiveDocument.Tables(1).Cell(1, 4).Range.Text, vbCr)(0)
With Application.Dialogs(wdDialogFileSaveAs)
path = "C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms"
.Name = StrNm
.Format = wdFormatPDF
.Show
End With
End Sub
Alvast bedankt voor goede adviezen!
Het opslaan als PDF in de goed map lukt al wel, maar niet met de juiste bestandsnaam
zo ziet de macro er nu uit:
Sub Opslaan_als()
'
' Opslaan_als Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms\ordernummer.pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory _
"C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms"
End Sub
Ik heb al wel een macro geprobeerd met een code waarmee wel de bestandsnaam lukte, maar niet in de juiste map terecht kwam:
Sub Opslaan_als_pdf()
'
' Opslaan_als_pdf Macro
'
'
Dim StrNm As String
Dim path As String
StrNm = Split(ActiveDocument.Tables(1).Cell(1, 4).Range.Text, vbCr)(0)
With Application.Dialogs(wdDialogFileSaveAs)
path = "C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms"
.Name = StrNm
.Format = wdFormatPDF
.Show
End With
End Sub
Alvast bedankt voor goede adviezen!