SaveAs Dialog box in Word 2016

[max76]

Hi Graham,

thank you for your reply. However, the code that I was already using does not trigger a Save Dialog when the button Save is clicked in Word 2016 (whereas it worked well on Word 2010 because the interface has changed unfortunately...)

Sub SaveAs_Dialog()
Dim dlgsaveas As Dialog
Set dlgsaveas = Dialogs(wdDialogFileSaveAs)
With dlgsaveas
.Name = ActiveDocument.SelectContentControlsByTag("Name").Item(1).Range.Text & " - " & _
ActiveDocument.SelectContentControlsByTag("Number").Item(1).Range.Text
.Format = wdFormatXMLDocumentMacroEnabled
.Show
End With
End Sub

If I click on Save to Save the file for the first time I get the attached Save dialogue which is different. I'm trying to get a control on the attached SaveAs dialogue which the code does not.

Awaiting your feedback.

Thank you in advance for your support.

Regards

Massimo