RestoreEmailScriptCheckBox.Enabled = False Section15Complete.Caption = '': Section15Complete.BackColor = RGB(255, 255, 255)ĪctiveDocument.Tables(1).Rows(15).SetHeight 1, wdRowHeightExactly Section2Complete.BackColor = RGB(255, 0, 0)ĪctiveDocument.Sections(2). = TrueĪctiveDocument.Sections(4). = TrueĪctiveDocument.Sections(6). = TrueĪctiveDocument.Sections(8). = True Section2Complete.BackColor = RGB(0, 255, 0)ĬheckAndAmmendBy.Caption = UpgradeTechnic.Text If (DTSCheckBox.Value = True And AdminCheckBox.Value = True) Then Here is the vba I have so far: Private Sub DTSCheckBox_Click() This is a problem however because the ActiveX checkboxes do not hide, and so I have written some VBA which instead makes them super tiny, and then resizes them after its done.

(I use page breaks to show which parts I want to hide) There is also another matter: I have a button at the top of the document that hides a few of the sections throughout the document, which when pressed, checks any checkboxes it is going to be hiding first. I currently have it working so it turns it green but only when then last checkbox (3) is checked. What I am trying to achieve is have some vba that will check to see if ALL of the checkboxes are ticked, and then make the section one part on the table at the end green.

I have a word document which has lots of pages, and sections which after each step have an ActiveX control check box.Īt the end of the document there is a completion table which has the name of the sections and when the last check box for a certain section is checked, it turns that part of the table green.

Check box in word 2016