Ungrouping/grouping to protect document that deletes bookmark rng at contentcontrolonexit procedure

madempress · #7 03-14-2018, 11:25 AM

Solved it!

Code:

    '(Re)Group all objects to effectively lock the document from editing again.
    Dim ctrlA As Word.Range
    Dim ctrlAcc As ContentControl
        Set ctrlA = ActiveDocument.Range
        ctrlA.Select
    Set ctrlAcc = ActiveDocument.ContentControls.Add(wdContentControlGroup, ctrlA)

Now I just have to figure out how to de-select everything at the end so it doesn't make users panic. =D

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Document Review Procedure Suggestions	FedSteve	Word	1	09-01-2016 11:23 PM
Grouping or ungrouping resets Wrapping style... why?	addey	Word	7	02-13-2015 05:22 AM
Pivot table grouping problem 2 tables need different grouping	differentdrummer	Excel	3	12-10-2013 01:19 AM
How do I combine two different contentcontrolonexit macros?	jamles12	Word VBA	2	11-12-2013 06:51 PM
Document selection procedure	kennethc	Word	0	09-15-2010 02:56 PM