For some reason the file doesn't get saved.
HTML Code:
Function saveFile()
Dim strFileName As String
Dim StrPath As String
Dim instance As WdSaveFormat
Dim format As String
'provide a file type
format = wdFormatXMLDocumentMacroEnabled
'provide default filename
saveName = "test124.docm"
'provide a path
pathFull = "C:\temp\"
'concat path
StrPath = pathFull & saveName
With Dialogs(wdDialogFileSaveAs)
.Name = StrPath
.format = format
If .Display <> 0 Then
MsgBox ("thanks")
Else
strFileName = "User Cancelled"
End If
End With
End Function
Sub Test()
Call saveFile
End Sub