Foxtable(狐表) → 用户栏目 → 专家坐堂 → word文档在指定页插入图片


  共有3254人关注过本帖树形打印复制链接

主题：word文档在指定页插入图片
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/16 20:55:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 9:26:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=172360&skin=0

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 9:32:00 [显示全部帖子]

第一页跟最后一页单独处理，插入完整的印章图片不就行了

中间其它页按正常方式处理
Dim pages As Integer = 获取的页数 - 2
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107727 积分：547968 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 10:05:00 [显示全部帖子]

dim 页数 = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)

第一页
        Dim myRange = doc.GoTo(1, Which:=1, Count:=1)
        doc.Shapes.AddPicture(“完整图片”, False, True, 左边距,上边距,图片宽,图片高,myRange)
中间页
For i As Integer = 2 To 页数-1
处理中间页
next
最后页
        Dim myRange = doc.GoTo(1, Which:=1, Count:=页数)
        doc.Shapes.AddPicture(“完整图片”, False, True, 左边距,上边距,图片宽,图片高,myRange)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询