使用VBA隱藏/顯示/添加/洗掉檔案的某些部分-有解無憂

我想制作一個表格，您可以在其中選擇所需檔案的哪些部分，例如：

您有 4 個框 - Textbox1、Textbox2、Textbox3、Textbox4

通過用戶表單中的 Checkboxlisti，您可以選擇您只需要 Textbox1 4，并且該檔案僅添加/洗掉/隱藏/顯示您想要的部分，因此在此示例中它只會顯示 Textbox1 和 Textbox 4 - 我不確定這是否適用于顯示/隱藏/添加/洗掉/可能來自外部檔案？這是一張我想象中的圖片。（在圖片示例中，它將洗掉 Textbox3，因為它沒有被選中。

有沒有人有解決方案？或者也許如何解決這個問題......在此先感謝。

使用 VBA 隱藏/顯示/添加/洗掉檔案的某些部分

uj5u.com熱心網友回復：

使用數字添加的文本框可以正常作業

Private Sub CheckBox1_Click()
    ActiveDocument.Shapes(1).Visible = CheckBox1
End Sub

Private Sub CheckBox2_Click()
    ActiveDocument.Shapes(2).Visible = CheckBox2
End Sub

Private Sub CheckBox3_Click()
    ActiveDocument.Shapes(3).Visible = CheckBox3
End Sub

Private Sub CheckBox4_Click()
    ActiveDocument.Shapes(4).Visible = CheckBox4
End Sub

編輯 - 使用命名文本框更易于閱讀

如果您復制/粘貼您的文本框，Word 將使用相同的名稱創建它們。如果您想創建可讀的代碼并確保您的文本框按照您創建它們的順序命名，您可以預加載名稱。

   For Each shp In ActiveDocument.Shapes
       If shp.Type = msoTextBox Then
           i = i   1
           shp.Name = "TextBox" & i
        End If
    Next shp 
    
    Private Sub CheckBox1_Click()
        ActiveDocument.Shapes("TextBox1").Visible = CheckBox1 
    End Sub
    
    Private Sub CheckBox2_Click()
        ActiveDocument.Shapes("TextBox2").Visible = CheckBox2 
    End Sub
    
    Private Sub CheckBox3_Click()
        ActiveDocument.Shapes("TextBox3").Visible = CheckBox3 
    End Sub
    
    Private Sub CheckBox4_Click()
        ActiveDocument.Shapes("TextBox4").Visible = CheckBox4 
    End Sub

輸出示例

使用 VBA 隱藏/顯示/添加/洗掉檔案的某些部分

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/486102.html

標籤：vba 自动化 ms-word

上一篇：嘗試洗掉表行時范圍類的洗掉方法失敗

下一篇：如何通過在excel中選擇行而不添加太多物件（按鈕）來從表中洗掉一行？