FileOpen (risky) (all?)

[chrisgreaves]

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

[Klaus Linke]

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

[chrisgreaves]

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

[gwhitfield]

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