如何批量给横线增加长度？

zzpsx

如何批量家长横线.rar (17.53 KB, 下载次数: 7)

2021-8-3 11:47 上传

点击文件名下载附件

有时候，试卷中很多横线长度不够，一条条逐一加长肯定浪费时间，直接选中横线好像无法替换，请问高招。

cuanju

Sub ssss()
Rem 每运行一次代码，就会从下划线的中部增加一个空格，实际上使得下划线变长一个格子。
    With ActiveDocument.Content.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "( {4})( {1,})"
        .Replacement.Text = "\1 \2"
        With .Replacement
            .ClearFormatting
            .Font.Underline = wdUnderlineSingle '下划线
        End With
        .Execute Format:=True, Replace:=wdReplaceAll
    End With
End Sub

zzpsx

如果加长的横线左右各加一个空格就更好了。

cuanju

zzpsx 发表于 2021-8-3 13:09
如果加长的横线左右各加一个空格就更好了。

我抛砖引玉一下，但空格消失了。希望高手解决。^_^