word中批量添加印章、签名图片

在工作中老是碰到需要在word中每页添加印章图片的情况，想将电子印章图片加到word中，看起来像真的盖的一样^_^，尤其是投标之类的时候。虽然可以通过水印、或者背景等操作来处理，但是位置太单一了，太假o(*^＠^*)o，还一种方法就是手动添加、复制、旋转角度，如果几页还好，如果几百上千页，就坑爹了，如果还要旋转角度就更惨………………

后面琢磨、研究了下，其实可以通过word自带的vba功能进行开发实现，通过不断的百度，以下代码可以可以搞定，不能直接用，大家可以参考修改。

Set pic = ActiveWindow.Selection.InlineShapes.AddPicture(fileName:=url, LinkToFile:=False, SaveWithDocument:=True) 'url是图片的地址Set oShape = pic.ConvertToShape'           将图片移动到正中间，以下取得的值单位都是磅iwidth = oShape.Width '获取图片自身的宽度iheight = oShape.Height '获取图片自身的宽度oShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin '图片的水平位置相对于边距oShape.Left = (pWidth - nleft - nright - iwidth) / 2oShape.RelativeVerticalPosition = wdRelativeVerticalPositionMargin ' 图片的垂直位置oShape.Top = (pheight - ntop - nbottom - iheight) / 2If addStampShow.option_place2 = True Then '是否选中在正中间，再移动Randomize
'                     xleft = Int((Rnd * (50 - 2)) + 2) '生成2到50的随机数xleft = Int((Rnd * 100) - 50) '生成-50到50的随机数oShape.IncrementLeft xleft '向右移动了100，负数代表向左移动;LEFT  和TOP 设为，0，0  那么他们就会跑到，光标位置Randomizextop = Int((Rnd * 100) - 50) '生成-50到50的随机数oShape.IncrementTop xtop '正数向下，负数向上End If

当然，如果大家不想开发，也可以直接用已开发好的，下载地址：

http://www.booleanda.cc

这里面有可以直接插入图片功能，而且可以设置页面范围、是否旋转等

word中批量添加印章、签名图片相关推荐

在WORD中批量修改图片大小
今天在word中批量修改图片时发现了word一个强大的功能,不多说废话,直接附上步骤: 1.首先按一定的顺序将图片插入word当中: 2.点击"视图"----"宏&quo ...
word 中如何添加图片和表格目录或链接的问题
近期写论文,大量使用Word,关于word 中如何添加图片和表格目录或链接的问题,在这里做一下记录,以便以后看. note: 1.很多是摘在网上的 2.当前Word是2007 3.不含目录的生成和文献 ...
Word中怎样添加快速访问工具栏？这样操作很简单，20秒完成
现在的职场生活中电脑成为了必不可少的重要辅助工具,在工作中或多或少都会使用到Word,其实Word在操作上也有很多的小技巧不知道大家清楚吗,下面主要建设讲述在word中怎样添加快速访问工具栏以及一些其 ...
word文档通配符换行_职场小技巧|没想到word中的表格就可以排版图片大小
不知道大家在工作当中有没有遇到这样的情况:在WORD文档中想插入图片,却不能保证大小格式一样怎么办?如果数量较少的话,我相信大家还是有办法解决的!比如可以先插入一张图片后设置统一的格式进使用快捷键F4 ...
python 批量增加文件前缀_linux中批量添加文件前缀的操作方法
linux中批量添加文件前缀的操作方法需要在文件夹内所有txt文件的文件名前面添加"gt_"; 就是由原来的文件"xxx.txt"变成"gt_xxx ...
html 图片转换成word,在Word中通过把编辑的图片另存为HTML文件实现转换图片
Word是文字处理软件,它和图片格式转换根本就占不上边啊?如何能转换图片呢?在正常情况下Acdsee确实是图片浏览.格式转换的好工具,但是如果你的机器里没有安装它,却要进行图片转换怎么呢?这样我们的W ...
怎样把图片保存为html文件,在Word中通过把编辑的图片另存为HTML文件实现转换图片...
Word是文字处理软件,它和图片格式转换根本就占不上边啊?如何能转换图片呢?在正常情况下Acdsee确实是图片浏览.格式转换的好工具,但是如果你的机器里没有安装它,却要进行图片转换怎么呢?这样我们的W ...
我们经常会用遇到一些文件需要网签，如何在word中制作手写签名？
我们经常会用遇到一些文件需要网签,如何在word中制作手写签名? 目录我们经常会用遇到一些文件需要网签,如何在word中制作手写签名? 1.在纸上写手好签名,用手机拍照上传至电脑上 2.打开word ...
如何在Word中插入手写签名
如何在Word中插入手写签名? 第一步:插入图片利用手机拍下手写签名,背景尽量单一色,之后传到电脑桌面,然后打开Word文档,点击文档中的插入--插图--图片,并且将图片缩放到合适的位置. 第二步: ...
怎样在word中批量替换文字？Word替换文字这一招你会吗？
平时我们在编辑word文档的时候,经常会遇到将文档中的某一个文字或者是数字替换成别的内容,很多人想到的方法就是一个字一个字的找,之后进行更改,这样会很耽误我们的时间,如果你的文档内容过多的话难道你也会 ...

word中批量添加印章、签名图片

word中批量添加印章、签名图片相关推荐

最新文章

热门文章