在合同正文输出文稿的每一页加入二维码图片的功能

作者：张孟怀

日期：2015年12月15日

版本：最终版

说明：合同正文输出文稿的每一页加入二维码图片，到页眉位置的VBA代码如下:

Sub zhang2015()

'

' zhang2015 宏

'

'

Dim rng1 As Range

Set rng1 = Selection.Range '记录当前文档中的位置，宏执行结束后还要求返回此点

Application.ScreenUpdating = False '屏幕更新关闭

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

If Selection.HeaderFooter.Shapes.Count> 0 Then

Selection.HeaderFooter.Shapes(Selection.HeaderFooter.Shapes.Count).Select

'删除最后加的一个图片，解决多次操作问题

Selection.ShapeRange.Delete

End If

Selection.InlineShapes.AddPicture(FileName:="d:\wk_wechat.png", LinkToFile:=True, SaveWithDocument:=True).Select

Selection.ShapeRange.WrapFormat.Type = 3

Selection.ShapeRange.ZOrder 4

Selection.ShapeRange.Width = 86

Selection.ShapeRange.Height = 86

' Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionRightMarginArea

Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionRightMarginArea

Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionTopMarginArea

Selection.ShapeRange.Left = 0

Selection.ShapeRange.Top = 18

'Application.ScreenUpdating = True '打开屏幕更新ThisDocument.Save '完成后统一保存

rng1.Select '回到宏处理前的位置去

End Sub

注：如果调整图片位置，可参照下图使用绝对或相对位置进行。