![]() |
#16
|
|||
|
|||
![]()
Ok,
I think i sorted it out and it works. For some reason i deleted the controls and added them in again and then it worked. |
#17
|
||||
|
||||
![]()
The concept of a group of checkbox content controls working in the same way as the old group of radio buttons (only allowing one active selection) is tricky to code. There may be a more elegant way to do this but my attempt is more flexible in supporting more than two options.
Code:
Private Sub Document_ContentControlOnExit(ByVal aCCactive As ContentControl, Cancel As Boolean) Dim aCC As ContentControl Select Case aCCactive.Title Case "MyCheck", "Q1" If aCCactive.Checked Then For Each aCC In ActiveDocument.SelectContentControlsByTitle(aCCactive.Title) aCC.Checked = False Next aCC aCCactive.Checked = True End If End Select End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#18
|
|||
|
|||
![]()
Thanks for your help Guessed
|
![]() |
Tags |
.docm, xml issue |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
spider85 | Word VBA | 2 | 04-17-2017 02:08 AM |
![]() |
ptmuldoon | Word VBA | 7 | 03-09-2015 05:38 PM |
![]() |
flutterby1 | Word | 4 | 10-08-2014 10:55 AM |
![]() |
Moz | Word | 1 | 12-20-2012 04:23 PM |
Docm content dissapearing when I open the file? | shabbaranks | Word | 2 | 07-18-2012 01:13 AM |