怎么把一个图片保存到一个word文档里面去？

Question

谢谢

Answer 1

以及把一个字符串或数字写到word文档中

Answer 2

Option Explicit
Private WithEvents m_oWord As Word.ApplicationPrivate Sub Command1_Click()
    Dim oDoc As Word.Document
    Dim oParagraph As Paragraph
    
    Set oDoc = NewDoc
    
    Set oParagraph = oDoc.Paragraphs.Add
    
    oParagraph.Range.InsertAfter Text1.Text
    oParagraph.Range.InlineShapes.AddPicture "c:\test.bmp"
    
End SubFunction NewDoc() As Word.Document
    If m_oWord Is Nothing Then
        Set m_oWord = New Word.Application
        m_oWord.Visible = True
    End If
    
    Set NewDoc = m_oWord.Documents.Add()
End Function