求助，VB6.0怎么将指定文件夹的图片插入这个WORD2007内

Private Sub Command5_Click()
 Dim L1 As Double, L2 As Double, L3 As Double
 L1 = Text11.Text
 L2 = Text12.Text
 L3 = Text13.Text
 Label54.Caption = L1 + L2 + L3
 Label55.Caption = L1 * L2 * L3
 Label58.Caption = Text9.Text
 Label59.Caption = Text10.Text
 
Dim wordObj
     Set wordObj = CreateObject("Word.Application")
     With wordObj.Documents.Open("E:\编程\计算书模板\1+1.docx")
       CommonDialog1.Filter = "Word文档(*.docx)|*.docx" '存储文件
         CommonDialog1.ShowSave
         If CommonDialog1.FileName = "" Then
         K1 = 3
         Else
         With .Content
        .Find.MatchCase = True
         
         
             .Find.Execute "{cd1}", , , , , , , , , Text11, 2
             .Find.Execute "{cd2}", , , , , , , , , Text12, 2
             .Find.Execute "{cd3}", , , , , , , , , Text13, 2
             .Find.Execute "{cd4}", , , , , , , , , Label54, 2
             .Find.Execute "{cd5}", , , , , , , , , Label55, 2
             .Find.Execute "{cd6}", , , , , , , , , Label58, 2
             .Find.Execute "{cd7}", , , , , , , , , Label59, 2
           
            
             
 
        End With
 .SaveAs CommonDialog1.FileName
        End If
     End With
     wordObj.quit
 End Sub

 
这个程序已经可以实现我单击command5弹出一个保存的界面，然后保存在一个新建的word中即可。
 打开保存的word， {cd1-7}已经用的数据替换好了 我想在新建的word居中位置先插入一张指定图片或者用图片代替{},
总之要和输出的数据一起出现在新建word中 不知道该加什么代码
 图片位置 C:\Users\Administrator\Desktop\捕捉和数据库\捕获.GIF   
求大神指导
 或者有什么其他办法都可 本人新手才学20天
 

6 个解决方案

#1

录一个插入图片的宏。
把代码移植过来。

#2

在Word 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

#3

记录宏试过了没用，也不怎么会的缘故吧，得出的代码我早就有了。现在问题被我解决了，就是不知道怎么把指定图片插入指定一页。 Set wrdPic = wrdDoc.Shapes.AddPicture(FileName:="C:\Users\Administrator\Desktop\捕获.GIF", LinkToFile:=False, SaveWithDocument:=True, Left:=wrdShapeCenter, Top:=1200) 'Modify  这个是我插入图片调位置代码，不知道插入页数怎么设置

#4

问题被我解决了，就是不知道怎么把指定图片插入指定一页。 Set wrdPic = wrdDoc.Shapes.AddPicture(FileName:="C:\Users\Administrator\Desktop\捕获.GIF", LinkToFile:=False, SaveWithDocument:=True, Left:=wrdShapeCenter, Top:=1200) 'Modify  这个是我插入图片调位置代码，不知道插入页数怎么设置 怎么把图片插入第几页 解决了这个问题结贴

#5

 Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Administrator\Desktop\捕捉和数据库\捕获.GIF", LinkToFile:=False, _
        SaveWithDocument:=True
    ActiveWindow.ActivePane.VerticalPercentScrolled = 23
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Administrator\Desktop\捕捉和数据库\捕获.GIF", LinkToFile:=False, _
        SaveWithDocument:=True
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Administrator\Desktop\捕捉和数据库\捕获1.GIF", LinkToFile:=False, _
        SaveWithDocument:=True

录制宏是这样可是不知道怎么调才可以在VB6.0里面用，最上面是我的程序可以帮忙改改吗

#6

在Word 2003里面按Alt+F11，再按F1，查看VBA for Word的联机帮助。