トグルコマンドボタン

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 

私は私のテーブルの状態に応じて、私のテーブルを表示し、非表示にする1つのボタンを使用できるように期待していた（非表示または再表示）

任意の助けになりありがとう！

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 

を使用します！