Macro to create sequencial versions from a word doc to sequencial pdf files.

[Filipe]

Hi all,


My name is Filipe and I´m a new member on this forum.
Following the guidelines for creating macros in a word document, I was able to create a macro that registers the changes made to a pdf document:

Sub A2()
'
' A2 Macro
' Record PDF (Utente MFJ)
'
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\Rec 01.12.2018 .pdf" _
        , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory _
        "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\"
End Sub

But it doesn’t preserve the first copy and always replaces the existing one with the new one (Rec 01.12.2018.pdf). Will it be possible to insert a command in this macro that allows the creation of pdf files in a sequential way (such as Rec 03.12.2018.pdf ..... Rec 04.12.2108.pdf ... etc.) or similar, but without replacing the previous record? (I only make one change per day).
What code should I add or change in my example to get this result?
Very grateful for the help, I have tried to find a solution on the web, but without success.

Best regards,
Filipe

[macropod]

Try:

Sub A2()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
  "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\Rec" & _
  Format(Now, "DD.MM.YYYY") & ".pdf", _
  ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _
  OptimizeFor:=wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, _
  From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, _
  KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _
  DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

or, if it's only a one-page document:

Sub A2()
ActiveDocument.SaveAs2 FileName:= _
  "\\servidor\qsspublic\enfermagem\PISO A\A2 - MFJ\Diario Clinico\Registos\PDFs 2018\Rec" & _
  Format(Now, "DD.MM.YYYY") & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
End Sub