word中怎么写一个VBA 能够快速copy屏幕

word中如何写一个VBA 能够快速copy屏幕
word中如何写一个VBA   能够快速copy屏幕

------解决方案--------------------
Private Declare Sub keybd_event Lib "user32 " (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Sub PrintScreen()
keybd_event &H2C, 1, 0, 0
Selection.Paste
End Sub

------解决方案--------------------
Sub PrintScreen()
WordBasic.SendKeys "{prtsc} "
Selection.Paste
End Sub