макрос слова, возвращающий ошибку об грамматике инструмента

Question

по какой-то причине, когда я запускаю этот код макроса VBA:

Sub dor()

    Dim DocStats As String
    Dim MBTitle As String
    Dim J As Integer


    With Selection
    .WholeStory
    .LanguageID = wdEnglishUS
    .HomeKey Unit:=wdStory
    End With


    MBTitle = "Readability Statistics"
    DocStats = ""
    With ActiveDocument.Content
        For J = 1 To 10
            'DocStats = DocStats & .ReadabilityStatistics(J)
            'DocStats = DocStats & ": "
            DocStats = DocStats & .ReadabilityStatistics(J).Value
            DocStats = DocStats & vbCrLf
        Next J
    End With


    '~ Create a FileSystemObject
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    '~ Provide file path
    outFile = "C:\Users\Dor\Desktop\UrisJobs\work_prod\docx\all_files\output\" & ActiveDocument.Name & ".txt"


    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim objFile As Object
    Set objFile = fso.CreateTextFile(outFile, True, True)

    '~ Setting up file to write
    '~ Set objFile = objFSO.CreateTextFile(outFile, True)


    strComputer = "."


        'Wscript.Echo objFile.Name  'Commented out

        '~ Write to file
    objFile.WriteLine DocStats


    '~ Close the file
    objFile.Close


End Sub

Я получаю эту ошибку:

«Невозможно запустить массив статистики грамматики инструмента для документа, который содержит более одного языкового формата»

Я не знаю почему, но для некоторых документов мой код работает, а для некоторых - я получаю эту ошибку.