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

各位用户为了找寻关于Word如何用vba设置字体的格式的资料费劲了很多周折。这里教程网为您整理了关于Word如何用vba设置字体的格式的相关资料，仅供查阅，以下为您介绍关于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;