文档章节

vba代码添加水印

china008
 china008
发布于 2014/06/23 13:52
字数 297
阅读 78
收藏 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
海淀
VBA访问WebService

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

清水鱼
2012/10/04
0
0
熟悉VBA的编程环境——VBE:各窗口的功能介绍博客

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

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

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

nooname
05/10
0
0
重大改变!Python 或将取代 VBA 成为 Excel 官方脚本语言

点击上方“CSDN”,选择“置顶公众号” 关键时刻,第一时间送达! 如果微软的 Excel 中支持了人生苦短的 Python,你还会喜欢那个直接且易上手的 VBA 编程吗? 近日,据国外媒体 BLEEPINGCOMP...

csdnnews
2017/12/19
0
0
Aspose.Words for iOS 全新上线 | 支持免费试用

Aspose.Words for iOS via Xamarin 可以与Xamarin.iOS平台集成,可以开发具有创建,操作,转换或渲染最常用的Word处理文档格式的本地iOS应用程序。 主要功能 互换文档格式 通过邮件合并生成报...

可乐瓶的小辣椒
2017/10/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

如何通过 J2Cache 实现分布式 session 存储

做 Java Web 开发的人多数都会需要使用到 session (会话),我们使用 session 来保存一些需要在两个不同的请求之间共享数据。一般 Java 的 Web 容器像 Tomcat、Resin、Jetty 等等,它们会在...

红薯
今天
3
0
C++ std::thread

C++11提供了std::thread类来表示一个多线程对象。 1,首先介绍一下std::this_thread命名空间: (1)std::this_thread::get_id():返回当前线程id (2)std::this_thread::yield():用户接口...

yepanl
今天
3
0
Nignx缓存文件与动态文件自动均衡的配置

下面这段nginx的配置脚本的作用是,自动判断是否存在缓存文件,如果有优先输出缓存文件,不经过php,如果没有,则回到php去处理,同时生成缓存文件。 PHP框架是ThinkPHP,最后一个rewrite有关...

swingcoder
今天
2
0
20180920 usermod命令与用户密码管理

命令 usermod usermod 命令的选项和 useradd 差不多。 一个用户可以属于多个组,但是gid只有一个;除了gid,其他的组(groups)叫做扩展组。 usermod -u 1010 username # 更改用户idusermod ...

野雪球
今天
3
0
Java网络编程基础

1. 简单了解网络通信协议TCP/IP网络模型相关名词 应用层(HTTP,FTP,DNS等) 传输层(TCP,UDP) 网络层(IP,ICMP等) 链路层(驱动程序,接口等) 链路层:用于定义物理传输通道,通常是对...

江左煤郎
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部