through vba code, copy full screen ppt slideshow image and paste intoMS Word

[RC]

I am trying to view a slide full screen and then print screen or
capture the screen
then change to Word
then paste the image into Word
return to ppt and repeat for the all slides
The code below gets started but the screenshot includes the vba editor
window and the paste part is not working.
I can't use any utilites like snagit on these PCs.
==========================================
Option Explicit

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

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()
ActivePresentation.SlideShowSettings.Run
keybd_event VK_SNAPSHOT, 1, 0, 0
ReturnValue = Shell("winword.EXE", 1) ' Run MS Word
SendKeys "^(V)"
End Sub

 

[Steve Rindsberg]

See my reply elsewhere.

I am trying to view a slide full screen and then print screen or
capture the screen
then change to Word
then paste the image into Word
return to ppt and repeat for the all slides
The code below gets started but the screenshot includes the vba editor
window and the paste part is not working.
I can't use any utilites like snagit on these PCs.
==========================================
Option Explicit

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

Private Const VK_SNAPSHOT = &H2C

Sub PrintScreen()
ActivePresentation.SlideShowSettings.Run
keybd_event VK_SNAPSHOT, 1, 0, 0
ReturnValue = Shell("winword.EXE", 1) ' Run MS Word
SendKeys "^(V)"
End Sub