Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Add item to 'File > Send To' menu item

1 view
Skip to first unread message

Dennis Webb

unread,
May 30, 2002, 6:53:04 PM5/30/02
to
Does anyone know how to add an application to the 'File >
Send to' menu list. I know how to add them to the OS
level send to list, but the MS Word list is different.

Any help would be greatly appreciated!

Thanks!

Beth Melton

unread,
Jun 1, 2002, 11:12:48 AM6/1/02
to
Hi Dennis,

In short this can not be done. :-(
~~~~~~~~~~~~~~~
Beth Melton
Microsoft Office MVP

Please post replies/further questions to the newsgroup so that all may benefit.
"Dennis Webb" <denni...@yahoo.com> wrote in message news:9e0901c2082c$c1de4db0$3bef2ecf@TKMSFTNGXA10...

Tonya Marshall

unread,
Jun 1, 2002, 11:48:05 PM6/1/02
to
Hi Dennis,
I have a macro in Word97 that I use to send a file to a floppy disk. It
works great. I've copied the command to File/Send To.
You will need to change the 2 lines that say:

Directory:="A:\" & ActiveDocument.Name

Change the path that is enclosed in quotation marks to where you want to
send to, Such as "C:\My Folder\". Keep in mind that you need to save the
file before you can copy it to the folder. Here's the macro:

Sub SendToFloppy()
Dim Button As Long
If Len(ActiveDocument.Path) = 0 Then
MsgBox "Please save the document on your hard disk first",
vbInformation
Exit Sub
ElseIf Not ActiveDocument.Saved Then
Button = MsgBox("Save first?" & vbCr & vbCr & "If you select 'No', "
& _
"the last saved version of this document " & _
"will be copied from your hard disk, " & _
"rather than the up-to-date version", vbYesNoCancel +
vbInformation)
Select Case Button
Case vbCancel
Exit Sub
Case vbYes
ActiveDocument.Save
End Select
End If
On Error Resume Next
If Left$(Application.Version, 1) = "8" Then
'Word 97
WordBasic.CopyFile FileName:=ActiveDocument.FullName, _
Directory:="A:\" & ActiveDocument.Name
Else
'Word 2000 and above
WordBasic.CopyFileA FileName:=ActiveDocument.FullName, _
Directory:="A:\" & ActiveDocument.Name
End If
If Err Then
MsgBox "Copy failed: " & vbCr & vbCr & _
Err.Description, vbInformation
Else
MsgBox "File succesfully copied ", vbInformation
End If
End Sub

If you need to know what to do with this macro, go here:
http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm

Tonya Marshall

0 new messages