помогите чайнику написать макрос....плиииз!!!

[ilit2008]

Помогите пожалуйста написать макрос для Word. Необходимо чтобы макрос после абзаца добавлял еще абзац с числом, означающим количество слов в предыдущем абзаце, с количеством букв больше 3.

Заранее премного балгодарна....

[EducatedFool]

Проверяйте:

Код: Выделить всё

Sub test()
    Dim p As Paragraph, w As Range
    For Each p In ActiveDocument.Paragraphs
        If p.Range.ComputeStatistics(wdStatisticWords) > 1 Then
            WordsCount = 0
            For Each w In p.Range.Words
                [B]If w.Characters.Count > 4 Then[/B] WordsCount = WordsCount + 1
            Next
            p.Range.InsertAfter WordsCount & vbNewLine
        End If
    Next
End Sub

[ilit2008]

ААААААААААА!!!!!!!!!!!!!!!! Спасибо все работает!!!!!!!! Это просто здорово!!!!