VBA for Word sets the font format

The following code sets the various formats for Word fonts through VBA code.

WApp.Selection.Font.NameFarEast = "XXFarEastFont-Arial";

WApp.Selection.Font.NameAscii = "Times New Roman";

WApp.Selection.Font.NameOther = "Times New Roman";

WApp.Selection.Font.Name = "Song Body";

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;//Delete Line

WApp.Selection.Font.DoubleStrikeThrough = 0;//Double Delete line

WApp.Selection.Font.Outline =0;//Hollow

WApp.Selection.Font.Emboss = 0;//Embossed

WApp.Selection.Font.Shadow = 0;//Shadow

WApp.Selection.Font.Hidden = 0;//hidden text

WApp.Selection.Font.SmallCaps = 0;//Small Caps

WApp.Selection.Font.AllCaps = 0;//All capitals

WApp.Selection.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;

WApp.Selection.Font.Engrave = 0;//Engraved

WApp.Selection.Font.Superscript = 0;//Superscript

WApp.Selection.Font.Subscript = 0;//Subscript

WApp.Selection.Font.Spacing = float. Parse ("0");//Character spacing

WApp.Selection.Font.Scaling = 100;//character Scaling

WApp.Selection.Font.Position = 0;//Position

WApp.Selection.Font.Kerning = float. Parse ("1");//font spacing adjustment

WApp.Selection.Font.Animation = microsoft.office.interop.word.wdanimation.wdanimationnone;//Text effect

WApp.Selection.Font.DisableCharacterSpaceGrid =false;

WApp.Selection.Font.EmphasisMark = Microsoft.Office.Interop.Word.WdEmphasisMark.wdEmphasisMarkNone;