如何给每句话后面加四个空格和一条横线

zzpsx

如何给每句话后面加四个空格和一条横线.rar (17.56 KB, 下载次数: 5)

2020-4-25 17:44 上传

点击文件名下载附件

hhjjpp

将换行符替换成含下划线的空格+换行符

zzpsx

hhjjpp 发表于 2020-4-25 18:20
将换行符替换成含下划线的空格+换行符

我试了一下替换，排版错乱了，可否用vb代码？

zzpsx

Sub 句子后面加横线()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(^13)"
        .Replacement.Text = _
            "    __________________________________________\1"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

我自己录制了一个代码，但是还不够优化。请高手指点。

yian123

查找内容^13
替换内容^t^&
格式：制表位设置20字符，右对齐，前导符为——。20看情况增加点吧
全部替换即可

cuanju

经测试，40字符比较合适。

cuanju

用代码操作如下。其中，CentimetersToPoints(14.815)是40字符，但不知有无直接表示40字符的方式，向大家请教。
===================================================
Sub d3()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.ParagraphFormat.TabStops.ClearAll
        .Replacement.ParagraphFormat.TabStops.Add CentimetersToPoints(14.815), wdAlignTabRight, wdTabLeaderLines '14.815是40字符
        .Execute FindText:="^13", ReplaceWith:="^t^&", Replace:=wdReplaceAll, MatchWildcards:=True
    End With
End Sub