Microsoft Office Forums - View Single Post - Show chapter by checkbox

Thread: Show chapter by checkbox

View Single Post

Old

08-05-2018, 08:00 PM

gmayor

gmayor is offline

gmayor uses Windows 10

Windows 10 gmayor uses Office 2016

gmayor uses Office 2016

Office 2016

Expert

Join Date: Aug 2014

Posts: 4,142

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

Default

In that case add the following immediately after the Set oSource = ThisDocument line

Code:

If oSource.SelectContentControlsByTitle("Chapter1").Item(1).Checked = False And _
       oSource.SelectContentControlsByTitle("Chapter2").Item(1).Checked = False Then
        MsgBox "Chapter 1 and/or Chapter 2 must be selected"
        GoTo lbl_Exit
    End If

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Reply With Quote