在WORD文件里设置一个宏。

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

共1个回答

热心网友时间：2022-06-01 02:44

“把这个空格键的字符间距缩放为1%“--------------这个间距太小了吧？
代码如下：

Sub 插入小空格()

'
' Selection.TypeText Text:=" "

Selection.InsertSymbol CharacterNumber:=8194, Unicode:=True, Bias:=0
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = "Times New Roman"
.Size = 10.5
.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 = 1
.Position = 0
.Kerning = 1
.Animation = wdAnimationNone
.DisableCharacterSpaceGrid = False
.EmphasisMark = wdEmphasisMarkNone
End With
End Sub追问这位朋友，为什么运行错误呢？
另外，我第一次使用宏设置，不是特别熟练，希望能详细一点。。。
谢谢了

追答你干脆自己录制一次,我用的是WORD2003.
1、打开”工具--宏--录制新宏“，取名，确定。
2、“插入--符号---特殊字符---半角空格”。
3、按Shift+左移位箭头“。
4、”格式---字体---字符间距-缩放“，改为1%，确定。
5、停止录制宏，就完成了。