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