emce10282,
I am not a VBA expert by any means, but I have cobbled together the
following from code developed by other people, This macor replaces the
normal SAVEAS command and does two things
1) Puts the Filename on the title bar
2) Updates document fields after the save.
Sub FileSaveAs()
SendKeys "+{TAB}"
Dialogs(wdDialogFileSaveAs).Show
System.Cursor = wdCursorNormal
ActiveWindow.Caption = ActiveDocument.FullName
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType < wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub