Question

我想知道你们是否可以帮我解决这个问题。所以我想要一个按钮来显示/隐藏ms字中的表格。但是，我只能使用我的代码单独显示或隐藏按钮。目前这段代码将显示我的表格：

Sub Loan1()
'Hides Sections Not Used in Expanded Form
    Dim CollapseRange1 As Range
    'Set Which Range/Cell to Associate with Button
    With ActiveDocument.Tables(3)
    Set CollapseRange1 = .Rows(1).Range
        CollapseRange1.End = .Rows(25).Range.End
    End With
'If button is pressed then Hide/show CollapseRanges
    If CommandButton1 = False And CollapseRange1.Font.Hidden = False Then
    CollapseRange1.Font.Hidden = True
    Else
    CollapseRange1.Font.Hidden = False

End If

End Sub

我希望能够使用一个按钮来显示和隐藏我的桌子，具体取决于我的桌子状态（隐藏或隐藏）

任何帮助将不胜感激！

Answer 1

OH我设法弄清楚了我的问题。而不是

If CommandButton1 = False And CollapseRange1.Font.Hidden = False Then

我用

If CommandButton1 = False And ActiveDocument.Tables(3).Cell(1, 1).Range.Font.Hidden = False Then

我希望这有助于其他人！

切换命令按钮

1 个答案: