auto saving to a directory

[jb914]

how do i create a macro to autosave a document to a particular
directory on my server? the document is already named by another
program, so, it's a unique name. the path is always static
z:\backup\documents\2007

 

[Greg Maxey]

This isn't tested because I don't have a server. Try:
Sub NotTested()
Dim strFileName As String
strFileName = "Whatever unique name you use"
ActiveDocument.SaveAs FileName:="z:\backup\documents\2007\ &
strFileName"
End Sub

 

[Greg Maxey]

Sorry, that should be:

ActiveDocument.SaveAs FileName:="z:\backup\documents\2007\" &
strFileName

 

[jb914]

Thanks Greg,
The document name is going to be the current name of the active
document. how do i get that automatically?

 

[Greg Maxey]

Something like this:

Sub Test()
Dim strFileName As String
strFileName = ActiveDocument.Name
End Sub