Microsoft Office Forums - View Single Post - [Solved] Macro to auto-save pdf using text on page + current date

macropod · 02-05-2018, 12:59 PM

In that case, you could use a macro like:

Code:

Sub SaveAsPDF()
Dim StrName As String
With ActiveDocument
  StrName = "\Boilerplate - " & .BuiltInDocumentProperties("Company") & " - " & Format(Date, "YYYY-MM-DD")
  .SaveAs FileName:=.Path & StrName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
End With
End Sub

which you could assign to a keyboard shortcut.