View Single Post
 
Old 07-02-2019, 08:24 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Quote:
Originally Posted by dpaton05 View Post
But if I want to change the content controls so your code will work, what do I insert instead?
Run the following macro
Code:
Sub addEditors()
Dim oCC As ContentControl
    If Not ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Unprotect
    End If
    For Each oCC In ActiveDocument.ContentControls
        oCC.Range.Editors.add (wdEditorEveryone)
    Next oCC
    ActiveDocument.Protect Type:=wdAllowOnlyReading, NoReset:=True
lbl_Exit:
    Set oCC = Nothing
    Exit Sub
End Sub
which will add the editors to the content controls and then the macro to check the spelling is not required as the spell check will be automatic. Note the content controls are not protected for forms, but are marked as regions that may be edited.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Last edited by gmayor; 07-02-2019 at 11:02 PM.
Reply With Quote