Word如何用vba设置字体的格式

以下代码为通过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;

感谢您访问：生涯设计公益网！本文永久链接：https://www.16175.com/733081.html。侵删或不良信息举报请联系邮箱：121488412@qq.com或微信：aban618。

Word如何用vba设置字体的格式

相关推荐

excel如何利用NOW函数自动出现当前的日期和时间

excel表格里的图片如何保存

excel怎么使用四舍五入数字函数

windows7怎么关闭触摸板 windows7关闭触摸板快捷键

win7开启guest账户步骤是什么 win7开启guest账户步骤介绍

windows7如何开启telnet服务 windows7如何打开telnet服务