getting document version

[jpaaron]

How can you get the version of a Word document with VB 6.0? That is, how can you tell if a document was saved as a Word 2000 *.doc or a Word 95 *.doc?

Your help is appreciated.

-Jason

 

[softwarescience]

Hello

Do the following

Dim Word as object, WordType as String 

Set Word = CreateObject("Word.Basic")
WordType = Word.appinfo$(2)

Select case wordtype
case "9.0"
     'Word 2000
case "8.0"
     'Word 97
case Else
     'Word 95
end Select

Then you can set the word object to the specific word type i.e.
If WordType = "9.0" Then
'word 2000
Set Word = CreateObject("Word.Application.9&quot
Else
'word 97
Set Word = CreateObject("Word.Application.8&quot
End If


Hope this helps