Private Sub Document_New()
    Dim intChoice As Integer
    Dim strPathName As String
            
    intChoice = 0
    While intChoice = 0
        intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
        If intChoice <> 0 Then
            strPathName = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
            If Right$(strPathName, 1) = "x" Then
                strPathName = Left$(strPathName, Len(strPathName) - 1) & "m"
            End If
            ActiveDocument.SaveAs2 FileName:=strFileName, FileFormat:=wdFormatXMLDocumentMacroEnabled
        End If
    Wend
End Sub