VBA FOR WORD设置字体的格式.doc

《VBA FOR WORD设置字体的格式.doc》由会员分享，可在线阅读，更多相关《VBA FOR WORD设置字体的格式.doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-作者xxxx-日期xxxxVBA FOR WORD设置字体的格式【精品文档】參和旗鷹葎宥狛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 =

2、 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;

3、/褒評茅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.wdColorAutom

4、atic;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;【精品文档】