如何在段落末尾补齐空格？

youngds

我想利用VBA给Word文档的每个段落，加上下划线，并在末尾补齐若干数量的空格，使得每个段落最后一行正好延长到右侧页边距处。具体效果如图片所示。请高手们指教！

ming0018

请提供测试文档

ming0018

1. Sub 宏1()
   
2. 
   
3.     Dim doc As Document, Rng As Range, Par As Paragraph
   
4.     Set doc = ActiveDocument
   
5.     Dim l As Double
   
6.     l = doc.PageSetup.PageWidth - doc.PageSetup.LeftMargin - doc.PageSetup.RightMargin
   
7.    
   
8.     For Each Par In doc.Paragraphs
   
9.         Par.Range.Characters.Last.InsertBefore vbTab
   
10.         Par.Range.Font.Underline = wdUnderlineSingle
    
11.     Next
    
12.    
    
13.     doc.Content.ParagraphFormat.TabStops.ClearAll
    
14.     doc.DefaultTabStop = CentimetersToPoints(0.37)
    
15.     doc.Content.ParagraphFormat.TabStops.Add Position:=l, Alignment:=2, Leader:=0
    
16. End Sub

复制代码

youngds

ming0018 发表于 2020-6-9 15:38

多谢大神！你用制表位的方式解决了我的问题，实现了我想要的效果。不过还想多问一句，因为我之前的思路是想根据段落末尾最后一个字符到右侧页边距的距离，计算出需要添加多少个空格字符，然后再在段落末尾添加相应数量的空格。请问，这个思路如何实现？我想学习一下。非常感谢！非常感谢！

413191246se

ming 老师 太厉害了！我，一是没想到用制表符，二是也不会折腾制表位。代码收藏了！

ming0018

youngds 发表于 2020-6-9 22:16
多谢大神！你用制表位的方式解决了我的问题，实现了我想要的效果。不过还想多问一句，因为我之前的思路是 ...

先计算页面宽度，再判断段落最后一个字符是否到达边缘，还要计算一下空格的宽度，然后计算一下要加几个空格。