Language settings in Word 2013

Because the proofing language is a character attribute that could be applied to as little as a single character anywhere in the document (including nonprinting characters that are normally invisible), it can be difficult to find and change. The following macro, based on the one in http://www.word.mvps.org/FAQs/Customization/ReplaceAnywhere.htm, should do a thorough job. If you need instructions on how to install the macro, see http://www.gmayor.com/installing_macro.htm.

Note that the macro is specific to converting the proofing language from Hebrew to English UK. For any other pair of languages, you would need to change the two LanguageID values near the end of the code.

Sub ProofAllHebrewToEnglishUK()
    Dim rngStory As Word.Range
    Dim lngJunk As Long
    Dim oShp As Shape
    
    'Fix the skipped blank Header/Footer problem
    lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
    'Iterate through all story types in the current document
    For Each rngStory In ActiveDocument.StoryRanges
      'Iterate through all linked stories
      Do
        SearchAndReplaceInStory rngStory
        On Error Resume Next
        Select Case rngStory.StoryType
        Case 6, 7, 8, 9, 10, 11
          If rngStory.ShapeRange.Count > 0 Then
            For Each oShp In rngStory.ShapeRange
              If oShp.TextFrame.HasText Then
                SearchAndReplaceInStory oShp.TextFrame.TextRange
              End If
            Next
          End If
        Case Else
          'Do Nothing
        End Select
        On Error GoTo 0
        'Get next linked story (if any)
        Set rngStory = rngStory.NextStoryRange
      Loop Until rngStory Is Nothing
    Next
End Sub
Public Sub SearchAndReplaceInStory(ByVal rngStory As Word.Range)
  With rngStory.Find
    .Format = True
    .ClearFormatting
    .Replacement.ClearFormatting
    .LanguageID = wdHebrew
    .Replacement.LanguageID = wdEnglishUK
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
  End With
End Sub