又是该死的Word，行行好吧

Question

比较笨的方法是用Timer控件：Private Sub Timer1_Timer()
    Dim x As Object
    
    On Error GoTo WordErr
    
    Set x = GetObject(, "Word.Application")
    If TypeName(x) <> "Nothing" Then
        Command1.Enabled = True
    End If
    Exit Sub
WordErr:
    Command1.Enabled = False
End Sub

Answer 1

基本同意，题一点修改意见：
If TypeName(x) <> "Nothing" Then
改为
If not( x is Nothing) Then另外：
Public Const wdWindowStateMinimize = 2
Public Const wdWindowStateNormal = 0
Public Const wdWindowStateMaximize = 1
执行x.WindowState = wdWindowStateMaximize 
即可设置Word窗口状态
想要隐藏就
x.Visible=False