save dialog box promt doesn't save file

[brmveen]

For some reason the file doesn't get saved.

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

[macropod]

Try changing .Display to .Show. You might also use the variables you've defined instead of defining them then using undefined variable names instead...

[brmveen]

Changing to .show actually works. I'm a bit surprised because I didn't think to look in that part of code because that partially worked. Changing the format to pdf en keeping .display worked.

Thanks a million!

did some research:

the difference makes a bit more sence now:
.display only display the menu, sort of a view only thing (can even be timed)
.show shows and executes the menu.

https://msdn.microsoft.com/en-us/lib.../dn320601.aspx