永发信息网

Word VBA 设置段前间距的问题。

答案:1  悬赏:10  手机版
解决时间 2021-12-30 08:15
  • 提问者网友:容嬷嬷拿针来
  • 2021-12-29 17:44
文中倒数第五行一个语句 p.Range.ParagraphFormat.SpaceBefore = LinesToPoints(3) 没有作用,但是
如果放在前面一个Elseif语句里面却能够发挥作用。请问是什么原因?
非常感谢。
For Each p In ActiveDocument.Paragraphs
If p.Range Like "#.#.#.#*" = True Then
p.Range.Font.Size = 12
p.Range.Font.Name = "宋体" '以1.1.1.1的形式开头的段落
ElseIf p.Range Like "#.#.#*" = True Then
p.Range.Font.Size = 12
p.Range.Font.Name = "宋体" '以1.1.1的形式开头的段落
ElseIf p.Range Like "#.#*" = True Then
p.Range.Font.Size = 12
p.Range.Font.Name = "黑体" '以1.1形式开头的段落
ElseIf p.Range Like "#.*" = True Then
p.Range.Font.Size = 12
p.Range.Font.Bold = True
p.Range.Font.Name = "宋体"

p.Range.ParagraphFormat.SpaceBefore = LinesToPoints(3) '以1.形式开头的段落

End If
Next
Application.ScreenUpdating = True
ActiveDocument.Close savechanges:=True

另外还有一点就是处理行距时有一个文件跳出,行距至少为{e},其他文件都是可以的,这是什么意思?
最佳答案
  • 五星知识达人网友:大漠
  • 2021-12-29 19:14
放在前面一个Elseif语句里面却能够发挥作用。请问是什么原因?
这说明你的ElseIf p.Range Like "#.*" = True Then不符合嘛
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯