Results 1 to 8 of 8
  1. #1
    Lounger
    Join Date
    Jan 2001
    Location
    Cape Town, Western Cape
    Posts
    43
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Changing Send To options

    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

  2. #2
    Plutonium Lounger Leif's Avatar
    Join Date
    Dec 2000
    Location
    U.K.
    Posts
    14,010
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Changing Send To options

    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

  3. #3
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Brisbane, Queensland, Australia
    Posts
    352
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Changing Send To options

    isn't this called SaveAs?
    David Grugeon
    Brisbane Australia

  4. #4
    Lounger
    Join Date
    Jan 2001
    Location
    Cape Town, Western Cape
    Posts
    43
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Changing Send To options

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

  5. #5
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Brisbane, Queensland, Australia
    Posts
    352
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Changing Send To options

    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.
    David Grugeon
    Brisbane Australia

  6. #6
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,853
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Copying an Open File

    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>

    Andrew Lockton, Chrysalis Design, Melbourne Australia

  7. #7
    Lounger
    Join Date
    Jan 2001
    Location
    Cape Town, Western Cape
    Posts
    43
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Changing Send To options

    [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.

  8. #8
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Brisbane, Queensland, Australia
    Posts
    352
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Changing Send To options

    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.
    David Grugeon
    Brisbane Australia

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •