Как импортировать функцию ReadabilityStatistics в этом коде?

Question

У меня есть код, который выбирает несколько файлов Word и открывает их вместе с протоколированием их пути в файле Excel. Этот код связан с командной кнопкой в ​​форме Excel. Код приведен ниже:

Dim DocStats As String 
Dim WordFileName As String 


    Call Application.FileDialog(msoFileDialogOpen).Filters.Clear 
Call Application.FileDialog(msoFileDialogOpen).Filters.Add(_ 
"Word Files Only", "*.docx") 

'allow the user to select multiple files 
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True 
'make the file dialog visible to the user 
intChoice = Application.FileDialog(msoFileDialogOpen).Show 
'determine what choice the user made 
If intChoice <> 0 Then 
'get the file path selected by the user 
For i = 1 To Application.FileDialog(msoFileDialogOpen _ 
    ).SelectedItems.Count 
    strPath = Application.FileDialog(msoFileDialogOpen _ 
    ).SelectedItems(i) 
    j = Cells(Rows.Count, 1).End(xlUp).Row + 1 
    'print the file path to sheet 1 
    Cells(j, 1) = strPath 

    Set WordApp = CreateObject("Word.Application") 
    WordApp.Documents.Open strPath 
    WordApp.Visible = True 

    With WordApp.Documents.Content 

    DocStats = WordApp.ReadabilityStatistics(strPath).Value 
    MsgBox DocStats, vbOKOnly, "Hello" 
    Cells(j, 2) = DocStats 

    End With 

Next i 
End If 

End Sub 

Теперь я хочу, чтобы импортировать код ReadabilityStatistics из http://word.tips.net/T001784_Only_Showing_Readability_Statistics.html в этот код, чтобы вместе с протоколированием пути, он также будет регистрировать статистику удобочитаемости файла (ов) слова. Пожалуйста помоги.

Answer 1

Замените With блок с

With WordApp.ActiveDocument.Content 

For j = 1 To .ReadabilityStatistics.Count 
    DocStats = DocStats & .ReadabilityStatistics(j) 
    DocStats = DocStats & ": " 
    DocStats = DocStats & .ReadabilityStatistics(j).Value 
    DocStats = DocStats & vbCrLf 
Next j 

MsgBox DocStats, vbOKOnly, "Hello" 
Cells(j, 2) = DocStats 

End With