Word macro's

[Lipton]

Hallo,

 

Ik ben nog maar net de macro’s bij word aan het ontdekken.

Wat ik nodig heb is dit: In een word bestand moet de huidige datum komen, daarna moet die opgeslagen worden in PDF op en andere locatie: (O:\notarisbrief\2_PDF\2018\5.MEI\) met dezelfde naam als het oorspronkelijke bestand.

 

Ik krijg hem ofwel opgeslagen op de juiste locatie, of met de juiste naam, maar nooit lukt het me het pdf bestand zowel op de juiste plaats opgeslagen te krijgen EN met dezelfde naam als het oorspronkelijke word bestand. Iemand die me hiermee kan helpen ?  Ik gebruik word 2016

 

 

Dank u.

 

 

 

Sub Macro1()

'

' Macro1 Macro

'

'

    Selection.InsertDateTime DateTimeFormat:="d/MM/yyyy", InsertAsField:=False _

        , DateLanguage:=wdBelgianDutch, CalendarType:=wdCalendarWestern, _

        InsertAsFullWidth:=False

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _

        "O:\notarisbrief\2_PDF\2018\5.MEI\" XXXX, _

        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _

        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _

        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _

        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

        BitmapMissingFonts:=True, UseISO19005_1:=False

    ChangeFileOpenDirectory _

        "O:\notarisbrief\2_PDF\2018\5.MEI\"

    ActiveDocument.Save

    ActiveWindow.View.Type = wdWebView

End Sub