Word 2010 VBA使表格和文字消失

我正在處理word文檔並製作了一個用於隱藏表格的命令按鈕。現在，當我第一次設置它時，我認爲我已經開始工作了，我已經完成了它的所有樣式和標題，當我點擊按鈕時，桌子就會消失。然後我保存它並關閉文檔，但是當我打開文檔時，我發現隱藏的唯一內容是表格中的單詞，表格行不會隱藏，當我切換按鈕時，唯一隱藏的是文本。Word 2010 VBA使表格和文字消失

有什麼我做錯了嗎？下面是在VBA

Private Sub CommandButton1_Click() 
ThisDocument.Styles("HideText").Font.Hidden = Not ThisDocument.Styles("HideText").Font.Hidden 
End Sub

的代碼，我只想按鈕切換文本和表格隱藏每次按下按鈕時，當文件打開和關閉。

更新可能會對錶格有其自己的風格。我應該針對該風格以及風格中的文字嗎？那是怎麼回事？

更新＃2

我能現在隱藏和取消隱藏我想表的部分，但它不彈出線後，我讓表可見。那麼有沒有辦法讓點擊按鈕顯示錶格？

這是我到目前爲止。

Private Sub CommandButton1_Click() 
    ThisDocument.Styles("HideText").Font.Hidden = Not ThisDocument.Styles("HideText").Font.Hidden 
    'Table Grid 
    Dim s As Style 
    Dim An As Integer 
    An = 0 

    If An = 0 Then 
    For Each s In ActiveDocument.Styles 
      If s.Type = wdStyleTypeTable Then 
       If s.NameLocal = "Table Grid" Then 
        Debug.Print (s.NameLocal) 
        s.Visibility = False 
        s.UnhideWhenUsed = False 
        Call s.Delete 
       End If 
      End If 
     Next 
    An = 1 
    End If 

    If An = 1 Then 
    For Each s In ActiveDocument.Styles 
      If s.Type = wdStyleTypeTable Then 
       If s.NameLocal = "Table Grid" Then 
        Debug.Print (s.NameLocal) 
        s.Visibility = True 
        s.UnhideWhenUsed = True 
        Call s.Delete 
       End If 
      End If 
     Next 
    An = 0 
    End If 

    End Sub

來源

2016-10-20 Gilbert V

我會通過隱藏表格的字體（如下所示）來處理這個問題，而不是試圖隱藏表格中使用的特定字體樣式。

你可以嘗試沿着線的東西：這只是最終刪除了幾乎整個文件按鈕，所有

Public sub CommandButton1_Click() 
    With ActiveDocument.Tables(1).Range.Font 
     .Hidden = Not .Hidden 
    End With 
End Sub

來源

2016-10-20 14:51:10 Nulled

。我該如何分辨目標表格？ –

有沒有辦法可以隱藏邊框？ –

你也許可以用很多方法來選擇一個特定的表格，但是，如果你右鍵點擊表格，點擊「alt text」標籤並給表格一個標題，然後你可以在代碼中引用標題。因此，你可以做這樣的事情：） '公用Sub commandButton1_Click（對於每個TTable的在ActiveDocument.Tables 如果tTable.Title = 「TB」然後 tTable.Borders.Enable =不tTable.Borders.Enable 退出結束如果下一步結束Sub' 這將從表中刪除邊框。 – Nulled

Word 2010 VBA使表格和文字消失

回答

相關問題