Word document opslaan naar pdf

[KelIam]

Hoi,

Ik zit in een excel document en zou van daaruit een word document (dat reeds ergens staat) willen opslaan naar pdf.
Dit document is nog niet geopend. Het word document bevat samenvoegvelden, geen idee of dit belang heeft.
Ik had een code gevonden maar deze blijft steeds hangen bij het openen van het word document.
Ik gebruik een knop in excel om dit te realiseren.

Iemand mss tips om dit te realiseren?

Set wordapp = CreateObject("word.Application")

On Error GoTo OpenedErr

Set wrdDoc = wordapp.Documents.Open("C:\Users\Gebruiker\Documents\Werk\As Builtdossier\Voorblad\01. Voorblad.docx")
wordapp.Visible = True
wordapp.Application.Activate


ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Replace(ActiveDocument.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

wordapp.Close

OpenedErr:
' Don´t forget to clean memory once done
Set doc = Nothing
Set wordapp = Nothing

 

[AHulpje]

Probeer het eens zo:

Sub test()
    Set wordapp = CreateObject("word.Application")
    
    On Error GoTo OpenedErr
    
    Set wrddoc = wordapp.Documents.Open("C:\Users\Gebruiker\Documents\Werk\As Builtdossier\Voorblad\01. Voorblad.docx")
    wordapp.Visible = True
    wordapp.Application.Activate
    wrddoc.ExportAsFixedFormat OutputFileName:=Replace(wrddoc.FullName, "docx", ".pdf"), ExportFormat:=17

OpenedErr:
    Debug.Print Err.Description
End Sub

 

[snb]

Vertel je bedoeling hiermee eens.

Sub M_snb()
   with getobject("C:\Users\Gebruiker\Documents\Werk\As Builtdossier\Voorblad\01. Voorblad.docx")
     .ExportAsFixedFormat "C:\Users\Gebruiker\Documents\Werk\As Builtdossier\Voorblad\01. Voorblad.pdf",17
    .close 0
  End With
end sub

 

[KelIam]

@AHulpje
Dank je wel alvast! opslaan naar pdf werkt alvast!

Wat ik al vreesde is wel dat hij het document idd saved maar niet samenvoegt.
Kan ik een word-doc opnieuw laten linken met een excel tabblad en dan samenvoegen naar pdf, alles geprogrammeerd in vba zodat het achterliggend gebeurd. of op een andere manier mss, gegevens van een excel plakken op een bepaalde positie in een word-doc en dan opslaan naar pdf?