Macro om document als PDF in een bepaalde map op te slaan

Status
Niet open voor verdere reacties.

tdej0401

Nieuwe gebruiker
Lid geworden
2 jul 2020
Berichten
3
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!
 
Opgenomen macro, bevat dus veel rommel ... (niet jouw fout !)

Code:
[COLOR=#333333]Sub Opslaan_als()

[/COLOR][COLOR=#3E3E3E]Dim StrNm As String[/COLOR]
[COLOR=#3E3E3E]
StrNm = ActiveDocument.Tables(1).Cell(1, 4).Range.Text[/COLOR]
[COLOR=#333333]ActiveDocument.ExportAsFixedFormat OutputFileName:= "[/COLOR][COLOR=#333333]C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms\" & trim(StrNm) & ".pdf"[/COLOR][COLOR=#333333], ExportFormat:=wdExportFormatPDF[/COLOR]
[COLOR=#333333]
End Sub[/COLOR]
 
Laatst bewerkt:
Hoi Digicafee,

Bedankt ! het werkt helemaal goed!!
Heb je misschien nog een toevoeging dat het word document wordt gesloten zonder opslaan?
Dat zou helemaal super zijn :)

Ton
 
Ja, dat kan makkelijk ...

Code:
Sub Opslaan_als()

Dim StrNm As String

StrNm = ActiveDocument.Tables(1).Cell(1, 4).Range.Text
ActiveDocument.ExportAsFixedFormat OutputFileName:= "C:\Users\tdejong\OneDrive - Schunk Group\QS SCT-NL\forms\" & trim(StrNm) & ".pdf", ExportFormat:=wdExportFormatPDF
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan