Results 1 to 3 of 3
  1. #1
    3 Star Lounger
    Join Date
    Nov 2001
    Location
    Brisbane, Queensland, Australia
    Posts
    330
    Thanks
    10
    Thanked 0 Times in 0 Posts

    Editing a Word MAcro (word 97 on Win95b)

    I have created the following macro:

    Sub Saving()
    '
    ' Saving Macro
    ' Macro recorded 18 March, 2002 by Walkers - Brisbane
    '
    ActiveDocument.Save

    ChangeFileOpenDirectory "L:My Documents"
    SaveName = InputBox("Enter SaveName for File:", "Saving to L: Drive")
    ActiveDocument.SaveAs FileName:=SaveName & ".doc", FileFormat:= _
    wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
    True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
    SaveAsAOCELetter:=False
    End Sub

    This works fine for 3 users but I have one guy who wants to be able to specify the folder it is saved into.

    How can I get the SAVE AS box to actually appear so that the correct folder can be chosen?
    "Heading for the deep end"

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Editing a Word MAcro (word 97 on Win95b)

    Replace
    <pre>ActiveDocument.SaveAs ...</pre>

    with
    <pre>With Application.Dialogs(wdDialogFileSaveAs)
    .Name = SaveName & ".doc"
    .Format = wdFormatDocument
    .Show
    End With</pre>


  3. #3
    3 Star Lounger
    Join Date
    Nov 2001
    Location
    Brisbane, Queensland, Australia
    Posts
    330
    Thanks
    10
    Thanked 0 Times in 0 Posts

    Re: Editing a Word MAcro (word 97 on Win95b)

    Thankyou very much!
    "Heading for the deep end"

Posting Permissions

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