以下代碼為通過VBA代碼來設(shè)置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");//字體間距調(diào)整

　　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;