VBA: Show save dialog, with the current directory set to A:

[wpearsall]

how can i show the save dialog, with the current directory set to A: in microsoft word?.

This is an important task i need to complete for my Unit 4 coursework, but if this isnt possible, i guess i will just get the filename from the "inputbox" function, but i would prefer to allow people to use the word dialog etc....

if anyone can help, i wud b vry appriciative.

[kleinma]

are you automating Word from VB? or are you using the VBA built into Word?

[wpearsall]

the vba editor in word, i need to add a save to a: function to a toolbar.

[wpearsall]

Option Explicit
 
Sub SaveToA()
'
' SaveToA Macro
' Macro created 03/05/2004 by Wayne Pearsall
'
    With ActiveDocument
                ' if the current document is not saved
                'If .Saved = False Then
            ' Change the current system directory to the A: drive
            ChangeFileOpenDirectory "A:\"
            ' Call the application to display the "Save As" dialog
            ' (which should be set at the A: directory)
            .SaveAs
                'Else
                '    MsgBox "The current document is already saved!", vbInformation, "Document Saved!"
                'End If
    End With
End Sub

I have got this code, but for some reason, it doesnt appear to show the save as dialog box, is there something wrong with it,,,?

This is a real important task for my coursework, and is due in tomorrow afternoon, i have worked ma ass of for ages trying to figure it, but :@,,,

Thanks,,,
Wayne

[BrianS]

Would probably get a faster response if you use the VBA Forums

http://vbforums.com/forumdisplay.php?s=&forumid=37