如何获取word目前打开的文档

firstinti

第一个问题已解决，是我代码的问题－ －

那如何判断word程序正在运行以及如何获取word目前打开的文档呢，各位高手帮忙指导指导，谢谢了

[此贴子已经被作者于2006-11-23 17:05:43编辑过]

konggs

Sub 试试这个()
    Dim objword As Object
   
    On Error GoTo handler:
    Set objword = GetObject(, "word.application")
   
    Dim alldoc As Object
   
    For Each alldoc In objword.Documents
        MsgBox alldoc.Name
    Next alldoc
    Exit Sub
handler:
    If Err.Number = 429 Then
        MsgBox "进程中没有Word文档"
        Exit Sub
    End If
End Sub

firstinti

谢谢，问题已解决，奇怪的是在单位的时候同样的程序却没办法获取当前文档- -