如何把已经打开的非活动文档设置为活动文档？

mikewolf2k

直接用document名字赋值，如果存在就返回相应的文档，如果不存在就报错。
如果这算一个方法的话。

dong20030432

mikewolf2k 发表于 2018-4-25 15:12
直接用document名字赋值，如果存在就返回相应的文档，如果不存在就报错。
如果这算一个方法的话。

在你的提示下，已经完成了代码编写，谢谢了！
IsOpen = False
For Each acaddoc In acadapp.Documents
If StrComp(acaddoc.Name, MyFileName, vbTextCompare) = 0 Then
IsOpen = True
acaddoc.Activate
Exit For
End If
Next
If IsOpen = False Then acadapp.Documents.Open MyPath & MyFileName

mikewolf2k

一点建议
IsOpen = False
For Each acaddoc In acadapp.Documents
If StrComp(acaddoc.Name, MyFileName, vbTextCompare) = 0 Then
IsOpen = True
set mydoc=acaddoc
Exit For
End If
Next
If IsOpen = False Then set mydoc=acadapp.Documents.Open MyPath & MyFileName
mydoc.activate

dong20030432

mikewolf2k 发表于 2018-4-25 16:57
一点建议
IsOpen = False
For Each acaddoc In acadapp.Documents

非常感谢，确实这样更好！