word自动填充符号到行末

szt01

请教各位老师，在word中如何通过vba宏，实现从当前光标处自动填充 “.” 符号到行末？具体效果见test文件

szt01

附件附件附件附件

szt01

szt01

[img]%5Burl=https://imgtu.com/i/HvFDHJ%5D[/url][/img]

weiyingde

请自行测试，看是否符合要求。
Sub 自动填充()
With ActiveDocument
    For i = 1 To .Paragraphs.Count
    .Range(.Paragraphs(i).Range.End - 1, .Paragraphs(i).Range.End - 1).Text = String(160, ".")
    Next
End With
End Sub

常扬帆

借问：如果是下面这种情况，字多的能不移行吗？

weiyingde

不知道你的意图。

szt01

weiyingde 发表于 2022-2-21 19:02
请自行测试，看是否符合要求。
Sub 自动填充()
With ActiveDocument

老师你好，特别感谢您的解答。但是有时候每一行的字数并不固定，能不能做出图中的效果？[img]%5Burl=https://imgtu.com/i/HvqRfJ%5D[/url][/img]

weiyingde

计算一下一下该段字符数，再填充。请测试
Sub 自动填充()
With ActiveDocument
    For i = 1 To .Paragraphs.Count
    x = 142 - 4 * (Len(.Paragraphs(i).Range.Text) + 1)
    .Range(.Paragraphs(i).Range.End - 1, .Paragraphs(i).Range.End - 1).Text = String(x, ".")
    Next
End With
End Sub

szt01

weiyingde 发表于 2022-2-22 08:08
计算一下一下该段字符数，再填充。

特别感谢！