vb& word

[horoscope]

Private Sub Command1_Click()
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open("c:\1.doc")
If doc Is Nothing Then
MsgBox MyFileName & "can not open this file!"
End If


doc.Close / there is wrong, can not find close this property. can you tell me why. how to change it,
Set doc = Nothing
MyApp.Quit
Set MyApp = Nothing
Call ParseWordfile.ParseWord

End Sub

 

[fredericofonseca]

Either of the following will work.

ALWAYS DIM the variables, and ALWAYS use "option explicit"

Sub aa()

Dim a As Word.Application
Dim b As Word.Document
a.ActiveDocument.Close
b.Close
End Sub


Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com