如何实现一个代码在间距为0和间距为0.5行之间进行切换

小盆友靠自己

自己编写的代码如下：


Sub 间距()
    With Selection.ParagraphFormat
        If .LineUnitBefore <> 0.5 Or .LineUnitAfter <> 0.5 Then
            .LineUnitBefore = 0.5
            .LineUnitAfter = 0.5
        Else: .LineUnitBefore = 0: .LineUnitAfter = 0
        End If
    End With
End Sub

代码执行后，间距调整为段前断后0.5行后，就不能跳转到间距为0，我觉得是else后面的代码就没执行或者没有写对，请各位大神帮忙修改下

vbee

你的代码可以实现，可能是选择问题。
=0的话结果都是9磅

batmanbbs

word在设置左右缩进、段前段后间距这类的时候比较特殊，分别有两个单位（缩进有字符和磅，段前段后距离的单位有行和磅），所以在设置为零的时候都要设置。同时，还要注意单位的优先级（单位是字符和行的优先级要高），优先级的高先设置，然后设置优先级低的（因为优先级高的值没有修改，优先级低的虽然看上去被代码修改了，其实还是优先级高的转换值）。说了这么多，你的代码应该这样改：