Макрос для Word, который подсчитывает количество символов, слов, строк, абзацев - VBA

Формулировка задачи:

макрос для word который подсчитывает кол-во символов, слов,строк абзацев и выводит результат в конце документа буду очень признателен если покажите пример такого макроса.. сам пытался ничего не вышло. заранее спасибо

Решение задачи: «Макрос для Word, который подсчитывает количество символов, слов, строк, абзацев»

textual
                            Листинг программы 
                        

                            Sub Iaein7()
Dialogs.Item(wdDialogDocumentStatistics).Display
Selection.TypeParagraph
Selection.TypeText Text:=" количество символов " + Str(ActiveDocument.ComputeStatistics(wdStatisticCharacters)) + " количество абзацев" + Str(ActiveDocument.ComputeStatistics(wdStatisticParagraphs)) + " количество страниц " + Str(ActiveDocument.ComputeStatistics(wdStatisticPages)) + " количество слов " + Str(ActiveDocument.ComputeStatistics(wdStatisticParagraph)) + " количество строк " + Str(ActiveDocument.ComputeStatistics(wdStatisticLines))
End Sub
                        