[RESOLVED] Removing File Name From SaveAs Dialog

[Hack]

NeedSomeAnswers posted some code in my last question that allows me to intercept the Save feature of a Word document, and thus, force the user to use SaveAs instead. This is a good thing as I'm using a couple of templates that I made in Word, and do not want the original template overlaid.

However, when they click SaveAs, and the SaveAs dialogbox comes up, the original document name is displayed. How can I wipe that out, and present a SaveAs dialog with nothing in the file name textbox?

[dannymking]

Hack

Put this in ThisDocument

Sub FileSaveAs()
  Dim strFileAs As String
  With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = ""
    .Show
    strFileAs = .SelectedItems.Item(1)
  End With
  ActiveDocument.SaveAs strFileAs
End Sub

[dannymking]

Any joy??

[Hack]

Works like a champ. Thank you Danny.

This makes two routines I've copied and pasted into my word document, and I added an error trap all by myself. (Damn I'm good )

RobDog888: You better watch out buddy, there is a new VBA guru in town!

[RobDog888]

Yes, DMK is quite good but I still rule Office VBA I'm a Leo, remember? King of the Office VBA jungle.

Soon as I get back from building my block wall there will be a new RobDog888 to watch out for.

[Hack]

Actually, in a tongue-in-cheek fashion, I was referring to me as the new VBA guru 'cause I copied and pasted two routines I didn't write into a document.

[dannymking]

We shall see.. we shall see...

Ain't started yet..

Is that a wall for protection?

5 gems.. at my rate I'll be six in two more months.. If only they weren't gray..

[RobDog888]

He he, either way its great to see the VBA forum packing some decent traffic after all my longs moinths of building it up from < 30 threads a month to 200+ threads a month. Thanks to all who help post in VBA.

[dannymking]

Yep..

People under estimate VBA.. some of the stuff I can do with it (Until MSDN Sub my company wouldn't let use anything other than office) will blow your mind..

I'll be around to help as many as I can for some time