如何判断当前软件是否打开了文档？关于catia vba二次开发 代码如下

Sub OpenDoc()
 Dim oDoc As Document
 Set oDoc = CATIA.ActiveDocument  Set