VBA,帮我解释代码

发布网友 发布时间：2022-05-16 14:19

我来回答

共2个回答

热心网友 时间：2023-10-25 10:59

张志晨：这是一个word宏。主要功能就是对所选定的文字进行格式化。
With Selection.Font
.NameFarEast = "宋体" 　'设置选中的东亚地区文字字体为宋体,中文字体
.NameAscii = "Times New Roman" 　'将选中区域拉丁文字体设置为 “Times New Roman”
.NameOther = "Times New Roman" 　'将选中区域的西文字体设置为 “Times New Roman”
.Name = "Times New Roman" 　’找不到本地区字体时，一律使用默认字体，罗马文字的字体
.Size = 12 　'字号
.Bold = False 　'不加粗
.Italic = False 　'不倾斜
.Underline = wdUnderlineNone 　'无下划线
.UnderlineColor = wdColorAutomatic 　'如果有下划线，就显示为默认颜色，自动
.StrikeThrough = False 　'不加删除线
.DoubleStrikeThrough = False 　'不加双删除线，
.Outline = False '不加轮廓线
.Emboss = False '阳文
.Shadow = False '没有阴影
.Hidden = False '显示文字，不隐藏
.SmallCaps = False '不设置为“小型大写字母”
.AllCaps = False '不设置为“全部字母大写”
.Color = wdColorAutomatic '字体颜色
.Engrave = False '不设为阴文
.Superscript = False '不设为上标
.Subscript = False '不设下标
.Spacing = 0 '设置字符间距
.Scaling = 100 '缩放　水平拉长或压缩文字
.Position = 0 '设置数据标签的位置
.Kerning = 1 '根据字号自动调整字距时的最小字号
.Animation = wdAnimationNone '没有动态效果
.DisableCharacterSpaceGrid = False '？？？？
.EmphasisMark = wdEmphasisMarkNone '不设置字符或指定的字符串的着重号
End With

热心网友 时间：2023-10-25 10:59

晕，录制了这么长的一段代码。
你选择不同的方法录制几个，对比一下就知道了追问我没有学过VBA，不会，解释给我吧，谢谢你！