C:\Program Files\Microsoft Office\root\Office16\SELFCERT.exe
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = "default name" 'Optional UpdateFields
With Application.Dialogs(wdDialogFileSummaryInfo) .Title = "default name" .Execute End With 'Optional UpdateFields