How can I create multiple "Save As" buttons in Word

[MissyB]

Our department has a lengthy directory tree and I would like to create Save
As buttons to point at a specific sub-directory for a specific state. I was
able to create multiple Open buttons using hyperlinks but I have not been
able to copy and modify the Save As button without it changing all the
buttons to the same target directory. I'm a user, not a programmer, but It
seems like it should be a very easy process. Any suggestions?

 

[Cindy M.]

Hi MissyB,

Our department has a lengthy directory tree and I would like to create Save
As buttons to point at a specific sub-directory for a specific state. I was
able to create multiple Open buttons using hyperlinks but I have not been
able to copy and modify the Save As button without it changing all the
buttons to the same target directory. I'm a user, not a programmer, but It
seems like it should be a very easy process. Any suggestions?

Am I right in my understanding that you want to place these buttons ON the Word
document?

Have you considered using a MacroButton field? This is a field you insert into
a document (like a Page or FileName field). You can associate it with a macro
(so each button would go to a different macro) and display something (can be
text, a graphic...)

The field code looks like this:

{ MacroButton NameOfMacro the prompt text }

You insert the { brackets } by pressing Ctrl+F9. You toggle the field code
off/on using Alt+F9.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail

 

[MissyB]

No, sorry, I should have been more specific. I want to insert the buttons in
the toolbar so that they are available whatever document I am working in,
essentially just a hyperlink that will bypass all the top-level directory
tiers and go directly to the state directory in which I'm working. I'm using
Word 2003.

I tried dragging and dropping the Save As button from the Add Remove Button
list up to the toolbar and running a macro to open the specified directory.
Unfortunately, it didn't really create a "new" button, just changed my
default Save As directory, so now all the buttons point to the same directory.

I just haven't been able to figure out how to tell Word that I want more
than one Save As location

Thanks!

 

[Doug Robbins - Word MVP]

Create a series of macros containing the following code, varying the
'IntialFileName = "Drive\Path"' so that it points to the folder that you
want the documents to be saved in for that macro and then assign each of
these macros to a toolbar. You will want to change the text that is
displayed for each one so that the user can distinguish between them.

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.Title = "Select the File that contains the Copyright Information"
Dim vrtSelectedItem As Variant
With fd
.InitialFileName = "Drive:\Path" 'e.g. .InitialFileName = "C:\"
If .Show = -1 Then
.Execute
Else
MsgBox "Cancelled by user."
End If
End With
Set fd = Nothing


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[MissyB]

Worked like a charm...thanks VERY much!

Create a series of macros containing the following code, varying the
'IntialFileName = "Drive\Path"' so that it points to the folder that you
want the documents to be saved in for that macro and then assign each of
these macros to a toolbar. You will want to change the text that is
displayed for each one so that the user can distinguish between them.

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.Title = "Select the File that contains the Copyright Information"
Dim vrtSelectedItem As Variant
With fd
.InitialFileName = "Drive:\Path" 'e.g. .InitialFileName = "C:\"
If .Show = -1 Then
.Execute
Else
MsgBox "Cancelled by user."
End If
End With
Set fd = Nothing


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Doug Robbins - Word MVP]

You're welcome.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com