Foxtable(狐表) → 用户栏目 → 专家坐堂 → 骑缝章


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

主题：骑缝章
帅哥哟，离线，有人找我吗？
qaz17909
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：9093 威望：0 精华：0 注册：2017/1/26 14:38:00 		骑缝章  发帖心情 Post By：2020/5/30 15:00:00 [只看该作者]

论坛里介绍了把骑缝章根据页数平分截取的方法，接下来，如何把截取后的图片，放到每一页word的右边？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/30 15:12:00 [只看该作者]

试试，自行设置不同的边距看效果

Dim app As New MSWord.Application
try
    Dim fileName = "e:\123.docx"
    Dim doc As object = app.Documents.Open(fileName)
    
    Dim img = "e:\123.jpg" '图片路径
        Dim Top As Integer = 100 '上边距
    Dim left As Integer = 100 ‘左边距’
    Dim w As Integer = 0 ‘宽
    Dim h As Integer = 0 ‘高
    doc.Shapes.AddPicture(img, False, True, left ,Top ,w,h)
    
    app.visible = True
    'Doc.save
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try
 回到顶部
帅哥哟，离线，有人找我吗？
qaz17909
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：9093 威望：0 精华：0 注册：2017/1/26 14:38:00 		  发帖心情 Post By：2020/5/30 15:59:00 [只看该作者]

如何直接获取一个word文档页面的宽度和高度？这样可以比较有根据地设置边距。另外，电子章的直径一般是4cm，对应的图片引用[&&图片文件,高度，宽度]中的高度和宽度是多少？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/30 16:21:00 [只看该作者]

页面的宽度：doc.PageSetup.PageWidth（以磅为单位）
高度：doc.PageSetup.PageHeight（以磅为单位）

各种单位的转换，自行百度，比如：http://www.exceloffice.net/archives/2194
 回到顶部
帅哥哟，离线，有人找我吗？
qaz17909
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：9093 威望：0 精华：0 注册：2017/1/26 14:38:00 		  发帖心情 Post By：2020/5/30 22:15:00 [只看该作者]

目前可以做到，打开一个word文档，判断出页数，把电子印章根据页数分为若干图片，但下一步想讲若干图片分别添加到不同页的word文档中，如何实现？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/5/31 20:56:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.zip
 回到顶部
帅哥哟，离线，有人找我吗？
qaz17909
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：9093 威望：0 精华：0 注册：2017/1/26 14:38:00 		  发帖心情 Post By：2020/6/3 14:26:00 [只看该作者]

生成报表的时候是好的，但打印预览的时候章就显示不完全，这个是怎么回事？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电子印章.rar



[此贴子已经被作者于2020/6/3 14:40:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/3 14:53:00 [只看该作者]

往左调整一下图片位置测试，可能超出可打印范围

 回到顶部
帅哥哟，离线，有人找我吗？
qaz17909
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：802 积分：9093 威望：0 精华：0 注册：2017/1/26 14:38:00 		  发帖心情 Post By：2020/6/3 15:36:00 [只看该作者]

应该不是图片位置的问题，我直接打开这个word，然后预览也是如此。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/3 16:05:00 [只看该作者]

需要打印机的支持，需要专门的无边距打印机。选中这个打印机，然后把打印边距设置为0

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询