《VBA FOR WORD设置字体的格式(2页).doc》由会员分享，可在线阅读，更多相关《VBA FOR WORD设置字体的格式(2页).doc（2页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-VBA FOR WORD设置字体的格式-第 2 页參和旗鷹葎宥狛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.Selec
2、tion.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.Sele
3、ction.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.Sel
4、ection.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;