作者：绿色风
分类：
时间：2022-08-18
浏览：103
楼主
kevinchengcw |
Q: 如何用代码为word文档添加或修改文字水印？
A: 通过如下代码可实现对word文档添加或修改水印的功能：
- 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
|
2楼
chenlifeng |
PowerPlusWaterMarkObject2110031说变量未予定义。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一