Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите с кодом для макроса

90K
10 мая 2013 года
Юлия Барсукова
1 / / 10.05.2013
Нужен код макроса для подсчета буквы "а" во всем тексте (в Word). Помогите, а то я впервые с этим сталкиваюсь!(
275
10 мая 2013 года
pashulka
985 / / 19.09.2004
Если регистр не важен, т.е. “A” = “a”, то можно попробовать такие варианты :

Вариант I.
Код:
Sub Test()
    With ActiveDocument.Content.Find
         .ClearFormatting
         .MatchCase = False
         .Forward = True
         .Text = "а"
         Do While .Execute = True
            iCount& = iCount& + 1
         Loop
    End With
    MsgBox "Количество = " & iCount&, , "а"
End Sub
 
Код:
Sub Test1()
    With ActiveDocument.Content.Find
         .ClearFormatting
         Do While .Execute(FindText:="а", MatchCase:=False, Forward:=True)
            iCount& = iCount& + 1
         Loop
    End With
    MsgBox "Количество = " & iCount&, , "а"
End Sub
Вариант II. Word 2000 (и старше)
 
Код:
Sub Test2()
    iText$ = ActiveDocument.Content.Text
    iCount& = Len(iText$) - Len(Replace(iText$, "а", "", , , vbTextCompare))
   
    MsgBox "Количество = " & iCount&, , "а"
End Sub

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог