VBA to set the text box control to be invisible doesn't work, the code is as follows:
Private Sub Document_Open ()
The test
End Sub

Public Sub test ()
On the Error Resume Next
Dim tbox As Object
For Each tbox In ActiveDocument. Shapes
If tbox. OLEFormat. ClassType="Forms. The TextBox. 1" Then
'MsgBox tbox. Name & amp; ":" & amp; Tbox. TextFrame. TextRange. Text

Tbox. Visible=msoFalse
End the If
Next
End Sub

A great god, please give directions!

CodePudding user response:

Tbox. Visible=False