How can i change the filename of a word-file

[Stefan29]

I want to change the filename of a word-file without knowing the location where this file has to be saved to.
So the filename is known but the location has to be given later by the user. Is this possible in word?

 

[Bowers74]

Place this code into a standart module in your Word document:

Sub NewFileName_Word()
Application.Dialogs(wdDialogFileSaveAs).Show
End Sub

This will open the Save As... window. The file name will be in the "File name:" box, and your user only has to select the Folder path.



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[Stefan29]

The "save As..." Window opens but the filename that Words propose isn't the correct filename. Can i change the filename Word propose in visual basic?

 

[Bowers74]

In that case, you will have to use this code instead:

Sub NewFileName_Word()
With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "MyDocument.doc"
    .Show
End With
End Sub

Just change the "MyDocument.doc" to whatever you want!

Hope this helps!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[Stefan29]

Hi mike,

Thank you for your help. But now there is a error message that indicates that he doesn't recognise the method or property "Filedialog". I think that i have the insert a libary somehow but i haven't no idea with one and where i can have them! Can you help me?

 

[Bowers74]

I'm sorry Stefan,

I was using WordXP last night and didn't realize that the ".FileDialog" doesn't work with earlier versions. Here is the new code and It will work in Word 2000:

Sub NewFileName_Word()
With Application.Dialogs(wdDialogFileSaveAs)
    .Name = "MyDocument.doc"
    .Show
End With
End Sub

Sory again.

I really do hope this helps!



Peace!

Mike

Never say Never!!!
Nothing is impossible!!!

 

[Stefan29]

Thanks a lot Mike!

It's working!!!