Консультация № 150323
12.11.2008, 14:40
0.00 руб.
0 3 2
Подскажите, пожалуйста, как C помощью Microsoft Word подсчитать (и написать) количество всех букв «а» (русских или английских) в тексте?

Обсуждение

Неизвестный
12.11.2008, 17:18
общий
это ответ
Здравствуйте, Evolut1on!
Попробуйте такой макрос (в приложении).




Приложение:
Sub findA()
Dim rng As Range
Dim i As Long
Set rng = ActiveDocument.Range
With rng.Find
.ClearFormatting
.Forward = True
.Text = "а"
.Execute
While .Found
i = i + 1
.Execute
Wend
End With
MsgBox i
End Sub
Неизвестный
12.11.2008, 18:57
общий
Спасибо конечно, но у меня задание подсчитать кол-во букв "а" не используя VBA.
Неизвестный
12.11.2008, 20:16
общий
это ответ
Здравствуйте, Evolut1on!
Для того чтобы посчитать количество всех букв «а», например русских. Вам надо сделать следующие. В Microsoft Word нажать CTRL+F.
На вкладке НАЙТИ ввести нужную букву, которую собираетесь посчитать. Далее поставить галочку напротив Выделить все элементы, найденные в: Основной документ. И нажать Найти все.
Появится сообщение
Найдено элементов: /количество/
Форма ответа