如何将ActiveDocument的句柄保存到变量中？

Question

如何获取Microsoft Word中ActiveDocument的Windows句柄？

我希望将句柄值保存到变量中。

Answer 1

可以使用FindWindow函数来获得窗口的句柄在当前激活的词应用：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

MS Word的类名是“OpusApp”。如果你只有一个字应用开放那么下面将手柄返回到窗口：

Public Function Test1() 
Dim lhWnd As Long 
lhWnd = FindWindow("OpusApp", vbNullString) 
End Function 

注意，当你有多个活动的Word应用程序，你可以添加窗口标题的名称。例如，如果它保存为“Stanigator.doc”，那么标题将被解读为“Stanigator - Microsoft Word”。所以：

Public Function Test2() 
Dim lhWnd As Long 
lhWnd = FindWindow(vbNullString, "Stanigator - Microsoft Word") 
End Function 

可能派上用场的其他API是：

Private Declare Function GetActiveWindow Lib "user32"() As Long 

编辑：

我要推荐VSTO做法，但基于此链接，没有按”上t似乎是明智的： Connect Issue: VSTO API support for MS Word Main Window Handle

Answer 2

正如Tim Williams指出的，它是Set myDoc = ActiveDocument。