Como solicitar salvar o diálogo do documento do Word ao abrir um arquivo de modelo?

Question

Eu gostaria de ter um diálogo de salvar aparecer na primeira vez que eu clico em um documento do Word modelo (dotm) para que ele tenha um local sugerido (por exemplo, c: \ temp) e nome do documento / arquivo final (docx). Eu tenho que pedir-me para preencher um título do documento através do campo fill-in ao abrir o arquivo de modelo, de forma ideal que poderia ser usado para um título de documento sugerido.

Eu usei informações de outro para tentar criar um meio de solicitar que um usuário salve o arquivo quando um arquivo de modelo do Word (.dotm) for aberto. Eu consegui-lo para pedir um save, mas ele quer que eu salve-o como um arquivo .dotm novamente em vez do .docx desejado.

Observação: o uso do Word 2016 e o conhecimento limitado do VBA.

O primeiro exemplo só funciona com o Excel, pois o Word não permite GetSaveAsFilename (consulte a linha 3)

Private Sub Document_New()
    Application.DisplayAlerts = False
    fName = Application.GetSaveAsFilename(filefilter:="Excel Files (*.xlsx), *.xlsx")
    ActiveWorkbook.SaveAs Filename:=fName
    Application.DisplayAlerts = True 
End Sub

Source 1

O segundo exemplo tem uma caixa de mensagem pop-up que mostra "c: \ temp \ test.docx", mas o diálogo salvar salva como um dotm.

Private Sub Document_New()
'Chemicalpython: changed above from Sub SaveName()
    Dim strFileName As String
    Dim StrPath As String
    'provide default filename
    StrPath = "c:\temp\test.docx"
    With Dialogs(wdDialogFileSaveAs)
        .Name = StrPath
        If .Display <> 0 Then
            strFileName = .Name
        Else
            strFileName = "User Cancelled"
        End If
    End With
    MsgBox strFileName 'Chemicalpython: this is the message box
End Sub

Fonte 2

Resultado desejado: