Dim fname as String
fname = ActiveDocument.Bookmarks("yourbookmarkname").Range.Text
ActiveDocument.SaveAs "Drive:\Path\" & fname

Signature
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.
Hope this helps,
Doug Robbins - Word MVP
>I would like to save a file automaticly before I close it , the name of the
> file shall be a bookmark and directry is for example
> g:\projects\letters\2004.Word2002
>
> Thanks