Thank you for your reply.

This created the problem. I did not get any errors, but it was correct either
APPword.Selection.PasteSpecial (ppPasteBitmap)

This fixed the problem
APPword.Selection.PasteSpecial DataType:=wdPasteBitmap

This did n't work either and agin no error
APPword.Selection.PasteSpecial , , , , wdPasteBitmap

I'm an engineer, not a programmer so I do stupid things. Still strange, no error