怎样设置表中的 口 上下绝对的对齐

ba3259878266

怎样设置表中的 口 上下绝对的对齐 谢谢各位老师指点

遥控器78

用制表符，用制表符。

ba3259878266

遥控器78 发表于 2020-8-27 07:59
用制表符，用制表符。

谢谢 需要绝对对齐的 制表符也误差

cuanju

Sub dm1()
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    ActiveDocument.Content.Find.Execute FindText:="^t", ReplaceWith:="", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:=ChrW(32) & "{1,}(□)", ReplaceWith:="^t\1", Replace:=wdReplaceAll, MatchWildcards:=True
    With ActiveDocument.Content.Find
        .MatchWildcards = True
        'Do While .Execute("^13[0-9]{1,}[、.]")
        Do While .Execute("□")
            With .Parent
                '.Start = .Start + 1
                .ParagraphFormat.TabStops.ClearAll '清空之前的所有制表位
                .ParagraphFormat.TabStops.Add CentimetersToPoints(14), wdAlignTabLeft, wdTabLeaderSpaces
                .Start = .End
            End With
        Loop
    End With
End Sub

ba3259878266

cuanju 发表于 2020-8-27 09:10
Sub dm1()
    ActiveDocument.Content.ListFormat.ConvertNumbersToText
    ActiveDocument.Content.Fi ...

谢谢 这个没有用过 不懂用 发附件行吗

遥控器78

ba3259878266 发表于 2020-8-27 08:57
谢谢 需要绝对对齐的 制表符也误差

这个就是用制表符啊，亲测无误差。

ba3259878266

遥控器78 发表于 2020-8-27 11:23
这个就是用制表符啊，亲测无误差。

谢谢 能给附件吗

遥控器78

ba3259878266 发表于 2020-8-27 12:49
谢谢 能给附件吗

里面两个文件，一个取消了自动编号。