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

您所在的位置：网站首页 › 文档怎么加盖章 › word中批量添加印章、签名图片

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

2023-10-11 00:45| 来源: 网络整理| 查看: 265

在工作中老是碰到需要在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) / 2 oShape.RelativeVerticalPosition = wdRelativeVerticalPositionMargin ' 图片的垂直位置 oShape.Top = (pheight - ntop - nbottom - iheight) / 2 If 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 那么他们就会跑到，光标位置 Randomize xtop = Int((Rnd * 100) - 50) '生成-50到50的随机数 oShape.IncrementTop xtop '正数向下，负数向上 End If

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

http://www.booleanda.cc

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

【本文地址】

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

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

今日新闻

推荐新闻