- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 骑缝章 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150461)
-- 发布时间：2020/5/30 15:00:00
-- 骑缝章
论坛里介绍了把骑缝章根据页数平分截取的方法，接下来，如何把截取后的图片，放到每一页word的右边？
-- 发布时间：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
-- 发布时间：2020/5/30 15:59:00
--
如何直接获取一个word文档页面的宽度和高度？这样可以比较有根据地设置边距。另外，电子章的直径一般是4cm，对应的图片引用[&&图片文件,高度，宽度]中的高度和宽度是多少？
-- 发布时间：2020/5/30 16:21:00
--
页面的宽度：doc.PageSetup.PageWidth（以磅为单位）
高度：doc.PageSetup.PageHeight（以磅为单位）
各种单位的转换，自行百度，比如：http://www.exceloffice.net/archives/2194
-- 发布时间：2020/5/30 22:15:00
--
目前可以做到，打开一个word文档，判断出页数，把电子印章根据页数分为若干图片，但下一步想讲若干图片分别添加到不同页的word文档中，如何实现？
-- 发布时间：2020/5/31 20:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:电子印章.zip |
-- 发布时间：2020/6/3 14:26:00
--
生成报表的时候是好的，但打印预览的时候章就显示不完全，这个是怎么回事？
[此贴子已经被作者于2020/6/3 14:40:07编辑过]
-- 发布时间：2020/6/3 14:53:00
--
往左调整一下图片位置测试，可能超出可打印范围
-- 发布时间：2020/6/3 15:36:00
--
应该不是图片位置的问题，我直接打开这个word，然后预览也是如此。
-- 发布时间：2020/6/3 16:05:00
--
需要打印机的支持，需要专门的无边距打印机。选中这个打印机，然后把打印边距设置为0