如何批量设置指定段落的行距

pbdq

我有一篇文档，非常长，排版的中间换了几个人。


合并文档后，才发现，有一些段落后面段间距不一致（最终文档要求严格一致）。


那我怎么可以用VBA将 所有  段落的后面间距是  0.3行的，全部修改为 0.5行？

ming0018

1. Sub 宏3()
   
2. 
   
3.     Dim doc As Document, Par As Paragraph: Set doc = ActiveDocument
   
4.     For Each Par In doc.Paragraphs
   
5.         With Par.Range.ParagraphFormat
   
6.             If .LineUnitAfter = 0.3 Then
   
7.                 .LineUnitAfter = 0.5
   
8.             End If
   
9.         End With
   
10.     Next
    
11.    
    
12. End Sub

复制代码

pbdq

ming0018 发表于 2018-9-20 15:50

测试可用。谢谢你。帮我大忙了。