VBA截取并粘贴ms字

Question

我是VBA新手并且有这个要求： 我有一个单词打开，我需要一个宏来截​​取当前焦点的窗口的截图，并将该截图粘贴到已打开的word文档上。

我正在尝试这样的事情：

Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)  

Sub TestDetails()                                                                                     
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
End Sub