word中批量添加印章、签名图片-CSDN博客

本文链接：https://blog.csdn.net/shaochuan_2008/article/details/123878646

在工作中老是碰到需要在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

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