error in code

[Andries]

Hello,

In a magazine I found some codelines to have the filelocation shown on top of my screen. But I get an errormessage because somewhere in the ActiveDocument.SaveAs (shown bold and in red) somethings wrong. I can't find the error. Who can? I use Word XP, but that doesn't seem to be the reason to me.

Thanx,
Andries

-------------------------------------------------
CODE:

Sub AutoOpen()
FileSave
End Sub

Sub FileSave()
With ActiveDocument
.Save
.ActiveWindow.Caption = .Path & "\" & ..ActiveWindow.Document.Name
End With
End Sub

Sub FileSaveAs()
Dim strFilename As String

With Dialogs(wdDialogFileSaveAs)
If .Display Then
ActiveDocument.SaveAs .Name, .Format, .lackannot, .Password, _
.addtomru, .WritePassword, .recommendreadonly, ..embedfonts, _
.nativepictureformat, .formsdata, .saveasaoceletter
End If
End With
FileSave
End Sub

 

[Greg]

See:
http://gregmaxey.mvps.org/File_Name_And_Path.htm