文档章节

vba代码添加水印

china008
 china008
发布于 2014/06/23 13:52
字数 297
阅读 81
收藏 0
 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

© 著作权归作者所有

共有 人打赏支持
china008
粉丝 5
博文 286
码字总数 30406
作品 0
海淀
私信 提问
C#如何添加PDF水印

水印,一般分为文本水印和图片水印,是一种作为文档防伪、声明权限的重要保护手段。常见的,是在Word中添加水印,在PDF中该怎么来实现呢。下面将介绍来实现PDF文档添加水印的具体操作方法。 ...

E_iceblue
2018/01/10
0
0
VBA访问WebService

接着上文。 默认环境VBA不支持连接WebService,需要安装【Web Services Toolkit】这个COM组件库,可以到微软官网下载。 目前我知道就两种:setup (Microsoft Office 2003 Web Services Toolk...

清水鱼
2012/10/04
0
0
PageOffice中word常用接口对象---WaterMark类

为了保护版权或辨别文件的真伪,有时需要在Word文件中添加一些文字水印,而WaterMark类就是现实了通过程序给在线编辑的Word文件添加水印这一功能,从而实现此效果。 WaterMark类所属命名空间...

山里的红杏
2018/09/11
0
0
熟悉VBA的编程环境——VBE:各窗口的功能介绍博客

窗口中主要包括菜单栏、工具栏、工程资源管理器、代码窗口、属性窗口、立即窗口、监视窗口等。这些窗口模板可以通过视图菜单中的相应命令进行显示和隐藏。以下对VBE窗口中主要模板的简单介绍...

musifang
2018/05/10
0
0
VBA的编程环境VBE的窗口介绍

1、打开方法 打开excel应用程序,在“开发工具”选项卡下点击“Visual Basic”按钮或者直接按下快捷键Alt+F11即可打开VBE窗口。 2、VBE窗口组成 (1)菜单栏是VBE窗口最重要的组成,包括文件...

nooname
2018/05/10
0
0

没有更多内容

加载失败,请刷新页面

加载更多

composer安装

前言:随着开源的东西越来越多,一些好的代码我们是可以直接拿过来用的,github更是加快了这一节奏,在github上我们可以看到一些开源的项目、代码块、函数库、类结构等,我们可以直接Fork,然...

echojson
16分钟前
0
0
Longest Palindrome(leetcode409)

Given a string which consists of lowercase or uppercase letters, find the length of the longest palindromes that can be built with those letters. This is case sensitive, for exa......

woshixin
34分钟前
0
0
mysql grant 用户权限总结

用户权限管理主要有以下作用: 1. 可以限制用户访问哪些库、哪些表 2. 可以限制用户对哪些表执行SELECT、CREATE、DELETE、DELETE、ALTER等操作 3. 可以限制用户登录的IP或域名 4. 可以限制用...

Airship
50分钟前
1
0
RabbitMQ学习(3)

1. 消费端 1. 消费端通过推模式或者拉模式从RabbitMQ中获取并消费消息,当消费者确认处理消息后,可以手动确认消息已被接收,然后就会将该消息从RabbitMQ的队列中标记再清除,消费者端还可以...

江左煤郎
今天
1
0
linux mysql(5.7)开启慢查询

一、有3个配置需要设置, 1:相关开关 2:日志目录文件 3:慢查询的时间限制 二、设置完之后重启mysql service mariadb restart 三、重启后做个测试 连接mysql 并查询: select sleep(6); 四...

chro008
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部