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
Помогите с кодом для макроса
Нужен код макроса для подсчета буквы "а" во всем тексте (в Word). Помогите, а то я впервые с этим сталкиваюсь!(
Если регистр не важен, т.е. “A” = “a”, то можно попробовать такие варианты :
Вариант I.
Вариант II. Word 2000 (и старше)
Вариант I.
Код:
Код:
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
With ActiveDocument.Content.Find
.ClearFormatting
Do While .Execute(FindText:="а", MatchCase:=False, Forward:=True)
iCount& = iCount& + 1
Loop
End With
MsgBox "Количество = " & iCount&, , "а"
End Sub
Код:
Sub Test2()
iText$ = ActiveDocument.Content.Text
iCount& = Len(iText$) - Len(Replace(iText$, "а", "", , , vbTextCompare))
MsgBox "Количество = " & iCount&, , "а"
End Sub
iText$ = ActiveDocument.Content.Text
iCount& = Len(iText$) - Len(Replace(iText$, "а", "", , , vbTextCompare))
MsgBox "Количество = " & iCount&, , "а"
End Sub