Application VisualBasic Script

Sub show()
    With Dialogs(wdDialogFileSaveAs)
        .Name = "Yellow Paint Primer"
        .show
    End With
End Sub