Date Stamp & Imaging Macro

[Samibouni]

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

[RobDog888]

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.

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