View Single Post
 
Old 10-18-2018, 06:45 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Here is some aircode that might get you started. I'll assume that you use the checkbox Tag property to store the associated bookmark name
Code:
Dim aCtl as MSForms.Control
For Each aCtl In Me.Controls
  Select Case TypeName(aCtl)
    Case "CheckBox"
      If ActiveDocument.Bookmarks.Exists(aCtl.Tag) then
        ActiveDocument.Bookmarks(aCtl.Tag).Range.Font.Hidden = Not aCtl.Value
      End If
  End Select
Next aCtl
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote