如果隐藏行的声明

Question

所以我有一组需要隐藏的行。我想将它附加到一个按钮，所以当它被使用时，它会隐藏/取消隐藏它取决于它所处的状态。我想知道我在我的代码中写错了什么因为运行但我的文档没有任何变化。这是我的代码：

Private Sub BBG()

Dim BBG As Range

    With ActiveDocument.Tables(1)
        Set BBG = .Rows(12).Range
        BBG.End = .Rows(33).Range.End
    End With

    If BBG.Font.Hidden = False Then
        With BBG.Font
        .Hidden = True
        End With

    ElseIf BBG.Font.Hidden = True Then
        With BBG.Font
        .Hidden = False
        End With

    End If
End Sub

谢谢！

Answer 1

您不能为变量指定与Sub相同的名称。下面的代码对我来说很完美。

Private Sub SetBBG()

    Dim BBG As Range

    With ActiveDocument.Tables(1)
        Set BBG = .Rows(12).Range
        BBG.End = .Rows(33).Range.End
    End With

    With BBG.Font
        .Hidden = (.Hidden + 1) * -1
    End With
    Debug.Print BBG.Font.Hidden
End Sub