标题:求助,怎么将指定文件夹的图片插入这个WORD2007内
只看楼主
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
回复 10楼 lianyicq
哎,无法, 才学20天,这些难一点的基本要找程序乱改,又看不懂,只能改好运行满足要求就好。。其实就是想把之前原word{cd1-7}代替成了数值再加一项加图片,然后一起保存  CommonDialog1.Filter = "Word文档(*.docx)|*.docx" '存储文件 弹出一个保存的界面存好,这就是所要输出的word而不改动原word 但是加来加去都不知道怎么把2个程序整合一起。- -!
2015-07-23 16:51
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:735
专家分:3478
注 册:2013-1-26
得分:20 
回复 11楼 huwenyi7758
没法调试,只加了图片相关代码,你试试,有问题再改。不知道图片的插入位置
程序代码:
Private Sub Command5_Click()
  Dim L1 As Double, L2 As Double, L3 As Double
  Dim wrdDoc As Word.Document 'Modify
  Dim wrdPic As Word.InlineShape 'Modify
  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")
  Set wrdDoc = wordObj.Documents.Open("E:\编程\计算书模板\1+1.docx") 'Modify
  With wrdDoc 'Modify
  '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
      Set wrdPic = wrdDoc.Range.InlineShapes.AddPicture(FileName:="图片文件路径及名称", LinkToFile:=False, SaveWithDocument:=True) 'Modify
      wrdPic.ScaleHeight = 50 'Modify
      wrdPic.ScaleWidth = 50 'Modify
      .SaveAs CommonDialog1.FileName
    End If
  End With
  wordObj.Quit
End Sub


大开眼界
2015-07-24 16:18
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
回复 12楼 lianyicq
Dim wrdDoc As Word.Document 'Modify
   Dim wrdPic As Word.InlineShape 'Modify
这个我还是把Word.Document ,Word.InlineShape 删了就成功运行了,不然的话还是未定义什么的,但是成功运行了就好,就是不知道那些嵌入式什么的调照片的位置的代码不知道会搜的到不-。太谢谢你了。
2015-07-24 18:57
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
回复 12楼 lianyicq
大神如果有设置图片位置的相关代码可以回复一下嘛,网上好多代码都乱,也完全不知道加在哪个位置,,。谢谢了
2015-07-25 08:54
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
回复 12楼 lianyicq
已经知道怎么确定位置了,还有多张图片插入。但是就是不知道怎么设置插入在该word的第几页。
2015-07-25 10:28
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:735
专家分:3478
注 册:2013-1-26
得分:0 
回复 15楼 huwenyi7758
直到下周末有事,帮不上忙.找找其它版主和坛友或自己多查查资料.

大开眼界
2015-07-26 07:46
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
回复 16楼 lianyicq
好吧。thanks all the same
2015-07-27 11:00
huwenyi7758
Rank: 2
等 级:论坛游民
帖 子:24
专家分:11
注 册:2015-7-23
得分:0 
- -
2015-07-29 14:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-455677-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027261 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved