Страница 1 из 1
помогите чайнику написать макрос....плиииз!!!
Добавлено: 06 дек 2009, 20:02
ilit2008
Помогите пожалуйста написать макрос для Word. Необходимо чтобы макрос после абзаца добавлял еще абзац с числом, означающим количество слов в предыдущем абзаце, с количеством букв больше 3.
Заранее премного балгодарна....
Re: помогите чайнику написать макрос....плиииз!!!
Добавлено: 06 дек 2009, 22:35
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
Re: помогите чайнику написать макрос....плиииз!!!
Добавлено: 07 дек 2009, 07:56
ilit2008
ААААААААААА!!!!!!!!!!!!!!!! Спасибо все работает!!!!!!!! Это просто здорово!!!!