View Single Post
 
Old 09-09-2015, 03:11 PM
Eduardo Care Eduardo Care is offline Windows 8 Office 2010 64bit
Advanced Beginner
 
Join Date: Aug 2015
Location: Cali
Posts: 32
Eduardo Care is on a distinguished road
Default

Thanks for your time and the answer Paul, as you propose, i have to use a macro for it.

While searching around some sites i found the following:

Code:
Sub myTotalCheckSpelling() 
    Dim iCnt As Integer 
     
    With Application.ActiveDocument 
         'Unprotect if protected
        If .ProtectionType <> wdNoProtection Then _ 
        .Unprotect Password:="" 
         
         'Loop all formfields
        For iCnt = 1 To .FormFields.Count 
             'Select formfield
            .FormFields(iCnt).Select 
             
            #If VBA6 Then 
                 'Only Word > 2000
                Selection.NoProofing = False 
            #End If 
             'Set Language
            Selection.LanguageID = wdEnglishUK 
             'Run spell checker
            Selection.Range.CheckSpelling 
        Next 
         
         'Reprotect without resetting the fields
        .Protect Type:=wdAllowOnlyFormFields, Noreset:=True, Password:="" 
         
        MsgBox "Demo all fields spell check completed", vbInformation 
    End With 
End Sub
Which suites my needs perfectly.

Also for other people having the same problem, they might find this information interesting:

http://word.mvps.org/faqs/macrosvba/...ProtectDoc.htm


Have a good day everyone.
Reply With Quote