Results 1 to 4 of 4
  1. #1
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Yilgarn region of Toronto, Ontario
    Posts
    5,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    FileOpen (risky) (all?)

    Sub FileOpen()
    ' Procedure : FileOpen
    ' Description: This code saves all documents BEFORE the risky event of opening a file.
    ' Copyright: Chris Greaves Inc.
    ' Inputs: None
    ' Returns: None.
    ' Assumes: Nothing
    ' Side Effects: None.
    ' Tested: By a call from the user

    ' I decided to add the SAVEALL to the File Open dialogue while creating a proposal
    ' that required many "open"ings of HTML files with attendant risk of Word97 Crashes.

    Documents.Save

    Dialogs(wdDialogFileOpen).Show
    End Sub

  2. #2
    5 Star Lounger
    Join Date
    May 2001
    Location
    Stuttgart, Baden-W, Germany
    Posts
    931
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: FileOpen (risky) (all?)

    Since I never had crashes when opening (HTML) files in Word 2000, an alternative might be
    <pre>Sub FileOpen()
    ' Assumes: $100(?)

    Application.Upgrade(wd2000)
    Dialogs(wdDialogFileOpen).Show
    End Sub</pre>


    <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>Klaus

  3. #3
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Yilgarn region of Toronto, Ontario
    Posts
    5,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: FileOpen (risky) (all?)

    Nice one!

    I was using HTML as an example. I have jad experiences in the past when opening client's files (those with 200 pages and 200 sections and ...)

  4. #4
    Platinum Lounger
    Join Date
    Dec 2000
    Location
    Queanbeyan, New South Wales, Australia
    Posts
    3,730
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: FileOpen (risky) (all?)

    <img src=/S/laugh.gif border=0 alt=laugh width=15 height=15>

    Actually, I'm not sure about the coding here.

    Is it really necessary to perform Application.Upgrade for every FileOpen? That might prove a bit expensive.
    <pre>Sub FileOpen()
    ' Assumes: $100(?)
    If Application.Version < 9 _
    and blnSufficientMoney _
    and intDesperationLevel > intMaxStress then
    Application.Upgrade(wd2000)
    end if
    Dialogs(wdDialogFileOpen).Show
    End Sub</pre>

    Subway Belconnen- home of the Signboard to make you smile. Get (almost) daily updates- follow SubwayBelconnen on Twitter.

Posting Permissions

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