Date Stamp & Imaging Macro

Hello,

I'm working on a system which saves documents in a particular way. If I am saving a document, I save it in the format YYYY-MM-DD XXXX so, for example, an invoice would be '2004-11-24 Invoice'.

This is fine but it is time consuming & it allows errors to creep in. I
would like to be albe to do something different & I wonder whether you might be able to help me.

When I want to save a document, I'd like to print a copy & to save an image file by printing & saving it to the Microsoft Office Document Image Writer & to prepare to save it as a word document by opening up the Save dialog box, giving the document a name according to the current date & time EG '2004-11-24 16.24' & allowing me to choos where to save it.

Can anybody tell me how I might to this or whether there is a macro available to do something like this for me?

Thanks

Sam

This code I wrote for you will solve your issue of presetting the save
as dialog with a preformatted filename/timestamp. This is a
completely dynamic save as.

Note: this is from within Word's VBA. If you need it to be VB only
let me know. Not too much difference.

VB Code:

Public Function MySaveAs(ByVal sType As String) As Boolean
    
    On Error GoTo No_Bugs
    
    Dim oDLG As Dialog
    Dim sFileName As String
    
    sFileName = Format(Now, "yyyy-mm-dd_hh-mm-ss") & " " & sType & ".doc"
    Set oDLG = Application.Dialogs(wdDialogFileSaveAs)
    With oDLG
        .Application.ActiveDocument.SaveAs sFileName
        .Update
        .Show
    End With
    If Application.ActiveDocument.Saved = True Then
        MySaveAs = True
    Else
        MySaveAs = False
    End If
    Exit Function
    
No_Bugs:
    MySaveAs = False
End Function