Macro to capture screenshots and paste into single Word whenever I press hotkey

I have written following code which takes screen shot on new word document. Also I don't know how assign hotkey to take screen shot and save document. Please help me in solving this.....

===============================================================================================


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

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Const VK_SNAPSHOT As Byte = 44

Private Const VK_LCONTROL As Long = &HA2
Private Const VK_V = &H56
Private Const KEYEVENTF_KEYUP = &H2

Sub Sample()

Sleep 3000
DoEvents

'~~> Take a snapshot
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)

'~~> Start Word


Set wordobj = CreateObject("Word.Application")

Set objDoc = wordobj.Documents.Add

wordobj.Visible = True

Set objSelection = wordobj.Selection

'Paste into Word
objSelection.Paste

End Sub