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

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