5,139
社区成员
发帖
与我相关
我的任务
分享跪求段落中设置行距固定值的宏脚本
word中建了一个宏，录制宏的时候无法对段落操作，只能修改宏脚本，需要对段落中的间距设成“段前0行，段后0行，行距固定值是25磅”，代码该怎么写？请高手赐教，不胜感激涕零～
...全文
请发表友善的回复…
发表回复
frankbj 2010-07-19
- 打赏
- 举报
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 25
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.WordWrap = True
End With
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 25
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.WordWrap = True
End With
luozhangwen 2010-07-15
- 打赏
- 举报
dsd999 2010-07-15
- 打赏
- 举报
建议贴出解决方法，谢谢。
宋翔 2010-07-15
- 打赏
- 举报
恭喜恭喜
zengting2002 2010-07-15
- 打赏
- 举报
通过检索站内资源。找到方法啦
