Changing Send To options

[jonmil]

Is there a way to change the Send To options on the File Menu in Office Apps (like I can in Explorer). Specifically I would like to Send a file to the floppy drive, but all I'm offered is Mail recipient and a few other options.

Thanks

[Leif]

I wrote this macro for my pc-illiterate father to facilitate his saving copies of a file to a floppy. I then added the macro to his Word File menu and labelled it Save to Floppy.
There does not seem to be a convenient command such as 'Save Copy As' - please correct me if I am wrong - and the macro assumes you have named and saved the file to the HD. After saving to A, it then resets the current directory to what it was before and saves the file again. This was the only way I found to switch the default drive back away from A in case he clicked on the save icon and expected it to be saved on the HD.

Sub Save2A()
On Error GoTo nodisk
cd = CurDir
X = ActiveDocument
sca = "a:" + X
ActiveDocument.SaveAs (sca)
If Right$(cd, 1) <> "" Then cd = cd + ""
sca = cd + X
ActiveDocument.SaveAs (sca)
'
fn = "Document '" + X + "' has been saved to drive A"
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = fn ' Define message.
Title = "Saved Confirmation"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
GoTo finish
nodisk:
Msg = "An error occured - please check disk is in drive A"
Title = "File has NOT been saved !"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
finish:
End Sub

HTH

[grugeon]

isn't this called SaveAs?

[jonmil]

Yes, but with fewer keystrokes. And I suspect less processing activity.

[grugeon]

I have a shortcut to A: in my personal directory which is the default opened when I use Open, SaveAs etc. So it is only two clicks. The time taken is for the saving to the floppy. That will not change no matter how you give the save instruction.

[Andrew Lockton]

It is actually possible to copy an open file elsewhere if you use the Old WordBasic command. I just learnt this by following one Chas Kenyon's MVP links to a page where it described commands lost to the newer coding language. It appears to be a work in progress as it changed the other day to add this command

<pre>Sub temp2()
Dim sPath As String, sName
sPath = ActiveDocument.FullName
sName = ActiveDocument.NAME

If Left$(Application.Version, 1) = "8" Then
'Word 97
WordBasic.CopyFile FileName:=sPath, Directory:="A:" & sName
Else
'Word 2000 and above
WordBasic.CopyFileA FileName:=sPath, Directory:="A:" & sName
End If
End Sub</pre>

[jonmil]

[img]/w3timages/icons/thinks.gif[/img]It's interesting that (based on a sample of two files, about 500k and 670k), Word SaveAs took twice as long as SendTo from Explorer.

[grugeon]

OK. I don't know why, but I suspect Word has to decide how to save the file and convert it from its internal format to the saved format.

I think a SendToA from word would really have to be a save anyway. There is no saved file to send. So it might take as long as SaveAs. Unless the file had already just been saved to C: and was clean and you could use the macro to copy it rather than resaving it.

The other issue you might need to consider is which copy of the file Word should be loooking at after the SendToA. If you use SaveAs it closes the file on C: and opens a new file on A: which becomes the current file. Subsequent changes will alter the file on A: not the original one.

Anyway you now have a range of options. As always there are many ways of doing something. You choose the one which suits you.