Sub competing OpenDoc ()
Dim oDoc As Document
The Set oDoc=CATIA. The ActiveDocument
If oDoc=Nothing Then 'open the document how to judge whether the current active form?
MsgBox "please open a document,", "operating hints
"The Else
MsgBox CATIA. The ActiveDocument. Name
End the If
End Sub

CodePudding user response:

Top someone

CodePudding user response:

The Document is the word

CodePudding user response:

http://www.nirsoft.net/utils/opened_files_view.html