View Single Post
 
Old 03-14-2018, 11:25 AM
madempress madempress is offline Windows 10 Office 2016
Novice
 
Join Date: Mar 2018
Posts: 5
madempress is on a distinguished road
Default

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
Reply With Quote