VB 把windows剪切板的内容粘贴到word

Private Sub Command1_Click()
   drawline
   VB.Clipboard.Clear
   VB.Clipboard.SetData Picture3.Image

   Dim WordApp As Object, Mydoc As Object
   Set WordApp = CreateObject("Word.Application")
   'WordApp.Application.Visible = 1
   Set Mydoc = WordApp.Documents.Add()
   WordApp.Application.Selection.Paste
   With Mydoc
    .SaveAs FileName:="c:/1.doc" '//
    .Close
   End With
   WordApp.Quit
   Set WordApp = Nothing
   Set Mydoc = Nothing
  
End Sub