如题.

解决方案 »

  1.   

    工程->引用->Micorosoft Word 9.0 Object Library (后面为版本号)Option ExplicitDim wdApp As New Word.ApplicationPrivate Sub Command1_Click()
        wdApp.Documents.Add
        wdApp.Selection.InlineShapes.AddPicture FileName:= _
            "D:\My Documents\My Pictures\0002.jpg", LinkToFile:=False, _
            SaveWithDocument:=True
        wdApp.Visible = True
    End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        Set wdApp = Nothing
    End Sub
      

  2.   

    其他的功能你可以自己到WORD中录制宏看看!!