VBA for Word设置字体的格式

2024-10-31

以下代码为通过VBA代码来设置Word字体的各种格式。

WApp.Selection.Font.NameFarEast = "华文中宋";

WApp.Selection.Font.NameAscii = "Times New Roman";

WApp.Selection.Font.NameOther = "Times New Roman";

WApp.Selection.Font.Name = "宋体";

WApp.Selection.Font.Size = float.Parse("14");

WApp.Selection.Font.Bold = 0;

WApp.Selection.Font.Italic = 0;

WApp.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineNone;

WApp.Selection.Font.UnderlineColor = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;

WApp.Selection.Font.StrikeThrough =0;//删除线

WApp.Selection.Font.DoubleStrikeThrough = 0;//双删除线

WApp.Selection.Font.Outline =0;//空心

WApp.Selection.Font.Emboss = 0;//阳文

WApp.Selection.Font.Shadow = 0;//阴影

WApp.Selection.Font.Hidden = 0;//隐藏文字

WApp.Selection.Font.SmallCaps = 0;//小型大写字母

WApp.Selection.Font.AllCaps = 0;//全部大写字母

WApp.Selection.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;

WApp.Selection.Font.Engrave = 0;//阴文

WApp.Selection.Font.Superscript = 0;//上标

WApp.Selection.Font.Subscript = 0;//下标

WApp.Selection.Font.Spacing = float.Parse("0");//字符间距

WApp.Selection.Font.Scaling = 100;//字符缩放

WApp.Selection.Font.Position = 0;//位置

WApp.Selection.Font.Kerning = float.Parse("1");//字体间距调整

WApp.Selection.Font.Animation = Microsoft.Office.Interop.Word.WdAnimation.wdAnimationNone;//文字效果

WApp.Selection.Font.DisableCharacterSpaceGrid =false;

WApp.Selection.Font.EmphasisMark = Microsoft.Office.Interop.Word.WdEmphasisMark.wdEmphasisMarkNone;

TAG：

上一篇 : 实用的调整WORD表格的快捷键

下一篇 : ERROR 1045 (28000): Access denied for user root@localhost (using password: NO)

文章标签

文档加密软件

文档信息安全管理软件

上网行为管理软件

应用程序管控软件

敏感文件管理软件

U盘设备管控软件

文件分发软件

IT资产管理软件

电脑操作记录软件

远程控制软件

聊天管控软件

敏感信息报警

屏幕管控

内网管理

深度行为分析

电脑屏幕录像

实时管控

补丁管理

网络准入控制管理系统