Sub 添加水印()     With ThisDocument         .Activate         WordBasic.RemoveWatermark  '删除旧的水印         .Sections(1).Range.Select         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader   '插入水印前需更改视图样式为页眉视图         '设置插入水印，语法：表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)         Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject2110031, "VBA插入的水印", _             "宋体", 36, False, False, 0, 0).Select         With Selection.ShapeRange             .Name = "PowerPlusWaterMarkObject2110031"   '形状类名             .TextEffect.NormalizedHeight = False    '文字文字效果             .Line.Visible = False   '线条是否可见             .Fill.Visible = True    '填充是否可见             .Fill.Solid             '填充类型（本例为纯色）             .Fill.ForeColor.RGB = RGB(192, 192, 192)    '设定填充的颜色RGB值             .Fill.Transparency = 0.5    '设置透明度50%             .Rotation = 0             '设置旋转角度             .LockAspectRatio = True     '锁定纵横比             .Height = CentimetersToPoints(1.27) '高度             .Width = CentimetersToPoints(8.25)  '宽度             .WrapFormat.AllowOverlap = True     '是否允许重叠             .WrapFormat.Side = wdWrapNone       '是否设置文字环绕             .WrapFormat.Type = 3        '设置折回样式（本例设为不折回）             .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin  '设置水平位置与纵向页边距关联             .RelativeVerticalPosition = wdRelativeVerticalPositionMargin    '设置垂直位置与横向页边距关联             .Left = wdShapeCenter   '水平居中             .Top = wdShapeCenter    '垂直居中         End With     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument  '恢复视图样式到原来样式     End With End Sub