vba粘贴为数值格式?(Word如何用vba设置字体的格式)

以下代码为通过VBA代码来设置Word字体的各种格式。WApp.Selection.Font.NameFarEast=华文中宋;WApp.Selection.Font.NameAscii

以下代码为通过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;

vba粘贴为数值格式?(Word如何用vba设置字体的格式)

主题测试文章,只做测试使用。发布者:正川号,转转请注明出处:https://www.fjzcdq.com/z/7947.html

(0)
上一篇 2022-06-21
下一篇 2022-06-21

相关推荐

发表回复

登录后才能评论