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