一、
前言

随着金格iWebOffice系列中间件产品的广泛应用，庞大的客户实体带来了丰富而复杂的应用需求，产品的更新速度也随着这些需求不断地加快。有些客户不仅想的快速的阅读文档，还想快捷方便的设置文档，其中文字设置最为常见，下面主要将介绍如何使用VBA实现控制这些字体。

二、控制说明

下面代码中“WebOffice”是iWebOffice控件对象，“WebObject”是iWebOffice控件提供用于访问VBA的对象。

1）光标选中的字体，字体变为红色。

  1. <!--光标选择的字体-->
  2. WebOffice.WebObject.Application.Selection.Font.Color = 255;     //字体变红

复制代码

2）书签中的字体，字体变为红色。

  1. <!--书签中的字体-->
  2. WebOffice.WebObject.Bookmarks("Caption").Range.Font.Color = 255;   //字体变红

复制代码

3）文档中第二个词组的颜色变为红色。

  1. <!--文档中第二个词组的颜色-->
  2. WebOffice.WebObject.Application.ActiveDocument.Words(2).Font.Color = 255;  //字体变红

复制代码

4）光标所在段落的字体。

  1. <!--光标所在段落的字体-->
  2. WebOffice.WebObject.Application.Selection.Paragraphs(1).Range.Font.Color = 255;

复制代码

5）文档开头字体中，3到第9的字体变为红色。

  1. <!--文档开头字体设置 -->
  2. WebOffice.WebObject.Application.ActiveDocument.Range(3,9).Font.Color = 255;

复制代码

6）设置所有字体样式为Color的字体

  1. <!--设置所有字体样式为Color的字体-->
  2. WebOffice.WebObject.Application.ActiveDocument.Styles(“Color”).Font.Color = 255;
  3. //字体变红

复制代码

图解：A、在word工具栏“样式”中设置一个新的样式Color。

(图2-1:样式Color)

B、用改样式标记文档中的文字，选中样式为Color，如图所示

(图2-2:样式Color效果)

C、讲所有样式为Color字体变为红色

(图2-2:样式Color设置为红色效果)

三、文字属性设置

1）设置文字的中文字体为“华文中宋”。

  1. <!--设置一种东亚字体名称-->
  2. WebOffice.WebObject.Application.Selection.Font.NameFarEast = "华文中宋";

复制代码

2）设置选中的文字中所有英文字体为“Times New Roman”。

  1. <!--设置使用的英文字体-->
  2. WebOffice.WebObject.Application.Selection.Font.NameAscii = "Times New Roman";

复制代码

3）设置所有选中的文字的字体（不区分中英文）为“宋体”。

  1. <!--设置所有文字的字体-->
  2. WebOffice.WebObject.Application.Selection.Font.Name = "宋体";

复制代码

4）设置选中字体的大小为14。

  1. <!--设置所有字体大小-->
  2. WebOffice.WebObject.Application.Selection.Font.Size =14;

复制代码

5）设置选中的字体为粗体。

  1. <!--粗体-->
  2. WebOffice.WebObject.Application.Selection.Font.Bold = 1;

复制代码

6）设置选中的字体为斜体。

  1. <!--斜体-->
  2. WebOffice.WebObject.Application.Selection.Font.Italic = 1;

复制代码

7）为选中的字体添加删除线。

  1. <!--删除线-->
  2. WebOffice.WebObject.Application.Selection.Font.StrikeThrough = 1;

复制代码

图解：

(图3-1:删除线效果)

8）为选中的字体添加双删除线。

  1. <!--双删除线-->
  2. WebOffice.WebObject.Application.Selection.Font.DoubleStrikeThrough =1;

复制代码

图解：

(图3-2:双删除线效果)

9）选中的文字添加阴影。

  1. <!--阴影-->
  2. WebOffice.WebObject.Application.Selection.Font.Shadow  =1;

复制代码

10）把选中的字体隐藏。

  1. <!--隐藏文字-->
  2. WebOffice.WebObject.Application.Selection.Font.Hidden  =1;

复制代码

11）选中的文字中全部英文字体设置为大写字母。

  1. <!--全部大写字母-->
  2. WebOffice.WebObject.Application.Selection.Font.AllCaps = 1;

复制代码

12）选中的字体设置为上标。

  1. <!--上标-->
  2. WebOffice.WebObject.Application.Selection.Font.Superscript  = 1;

复制代码

图解：

(图3-3:
选中的字体设置为上标)

13）选中的字体设置为下标。

  1. <!--下标-->
  2. WebOffice.WebObject.Application.Selection.Font.Subscript = 1;

复制代码

图解：

(图3-3:
选中的字体设置为下标)

14）设置选中文字的字符间距。

  1. <!--字符间距-->
  2. WebOffice.WebObject.Application.Selection.Font.Spacing  = 10;

复制代码

15）设置选中文字的字符缩放。

  1. <!--字符缩放-->
  2. WebOffice.WebObject.Application.Selection.Font.Scaling = 1;                        //数字表示距离

复制代码

16）添加下划线。

  1. <!--下划线-->
  2. WebOffice.WebObject.Application.Selection.Font.Underline = 1;

复制代码

17）添加双下划线。

  1. <!--双下划线-->
  2. WebOffice.WebObject.Application.Selection.Font.Underline = 3;                //下划线的条数
  3. WebOffice.WebObject.Application.Selection.Font.UnderlineColor = 255;        //下划线颜色

复制代码

图解：

(图3-4:
添加双下划线)

18）选中字体添加文字效果，当前为闪烁效果。

  1. <!--设置文字闪动的效果-->
  2. WebOffice.WebObject.Application.Selection.Font.Animation = 2;

复制代码

iWebOffice使用VBA控制字体相关推荐

  1. html 把文字显示控制,控制字体加粗显示的html标签是哪个

    控制字体加粗显示的html标签是哪个 发布时间:2021-06-09 09:27:30 来源:亿速云 阅读:88 作者:小新 这篇文章主要介绍了控制字体加粗显示的html标签是哪个,具有一定借鉴价值, ...

  2. html如何固定字号,css怎么控制字体大小？

    css怎么控制字体大小?下面本篇文章就来给大家介绍一下在HTML页面中使用CSS控制字体大小的方法.有一定的参考价值,有需要的朋友可以参考一下,希望对大家有所帮助. css怎么控制字体大小? 在CSS ...

  3. Android中App控制字体大小

    Android中App字体不随系统字体大小的改变而改变 通常是在Application或Activity中复写getResources方法 ,下面的代码就实现了app字体不随系统字体大小改变. ove ...

  4. WPS中VBA控制word时出现调用错误

    WPS中VBA控制word时出现调用错误 背景, 在WPS的环境下, 我的WORD自动填写软件出错, 主要怀疑: 如果没有WORD文件被打开的状态下 如果最后一个文件被关掉, 与EXCEL不同, 这时 ...

  5. vba控制图表,excel图表,一键完成

    来源http://club.excelhome.net/thread-1417686-1-1.html 官方教程链接 https://docs.microsoft.com/zh-cn/office/v ...

  6. 脸部细微表情识别_您可以仅使用面部表情来控制字体吗？

    脸部细微表情识别 原型 (The prototype) Facetype is the name of Adam's interactive project, in which the emotion ...

  7. python画图显示中文加标题控制字体

    之前在jupyter用seabron画图的时候一直显示不了中文,在中文前加u,也是不行中文都是正方形的格子,当时用的是python2.7,所以用的是以下的代码 import sys # print s ...

  8. 微信小程序 全局字体控制(字体大小)

    现在要做一个全局字体大小控制的功能 此处的字体大小不是指字号, 而是全局的一个大小比例控制(0.7倍.1倍.1.5倍这样) 框架是Taro+scss+redux 预想是通过js控制scss里的变量,即 ...

  9. 使用ANSI控制字体颜色

    引言 ANSI是一种字符编码,其扩展了ASCII编码. 如果想在终端输出带有颜色的字体,可以通过ANSI来实现. window 系统不支持颜色,cygwin 和 mingw支持颜色. 控制码 ANSI ...

  10. CSS控制字体和字体颜色改变

    A.a01:link {FONT-WEIGHT: bolder; FONT-SIZE: 12px; COLOR: #FFf200; TEXT-DECORATION: none} 网页显示的色彩 A.a ...

最新文章

  1. 如何有效使用每一点脑力总结_如何更有效地节省脑力和编码
  2. 机器学习圣杯：图灵奖得主Bengio和LeCun称自监督学习可使AI达到人类智力水平
  3. Java架构师笔记-你必须掌握学习Java需要掌握哪些技能
  4. ubuntu root下的无密码登陆
  5. C++ Vector用法深入剖析
  6. 多路I/O转接服务器——epoll
  7. RL之PG：基于TF利用策略梯度算法玩Cartpole游戏实现智能得高分
  8. Redis 总结精讲
  9. [NOIP2003]传染病控制题解
  10. 大数据 Hive spark Flink 关系
  11. python framebuffer_Linux中LCD设备驱动
  12. SharePoint Framework 简介
  13. CESIUM加载glb的模型
  14. mysql5.7.12安装_mysql 5.7.12 winx64手动安装教程
  15. C#工控上位机实例_HINET智能网关用于三菱FX1S/1N/2N/3S/3G/3UPLC远程编程和上位机监控...
  16. UmiJS基础UmiJS+Dva
  17. 【全源码及文档】基于JAVA的干部档案管理系统
  18. 抑郁症可以学计算机吗,AI能从人的话语中察觉到抑郁症吗？目前还为时过早
  19. 欧姆龙plc编程软件CX-Progammer v9.8升级教程
  20. 数据集处理（三）——打乱数据集

热门文章

  1. MySQL数据库基础理论
  2. 【Matlab语音识别】声纹识别系统（带面板）【含GUI源码 1022期】
  3. arduino与肌电信号（传感器）的碰撞② 2021 7 20
  4. pe安装linux 12.04,乌班图系统Ubuntu 12.04安装教程(图文详解)
  5. 让你提前认识软件开发(3)：学校C语言教材的缺陷
  6. 三菱plc232通讯实例_三菱PLC编程实例分享
  7. 软件需求说明书 (1)
  8. t470键盘拆解_做工保持良好水准 ThinkPad T470笔记本拆机解析
  9. MATLAB数据拟合时出错
  10. js新窗口打开页面固定尺寸大小