Макрос поиска в MO Word!

[auqarius]

Всем добрый вечер! Нужен макрос Который будет искать фамилию (любую например Иванов), и пройдя до конца текста выдать сообщение о том что,
такая-то фамилия встречается в тексте столько-то раз! В VBA программировать не умею, учусь программировать в паскале, помогите пожалуйста!

[Sasha_Smirnov]

Sub СколькоНас()
    Dim strF 'искомая строка
    Dim intN 'количество вхождений
    
    Selection.HomeKey wdStory 'в начало документа'
    
    strF = Trim(InputBox("Фамилия?", "Количество экземпляров", "Иванов-Вано"))
    
    With Selection.Find
        Do
            .Text = "<" & strF              'то, что ищем в тексте документа Word
            .Wrap = wdFindStop              'останавливаемся найденном'
            .Format = False                 'формат не учитываем'
            .MatchCase = False              'заглавные/строчные не учитываем'
            .MatchWholeWord = False         'не только слово целиком (чтоб и в разных падежах найти)'
            .MatchWildcards = True
            .Execute
            intN = intN + 1
        Loop Until Not .Found
    End With
    
    MsgBox "Строка «" & strF & "» найдена в количестве: " & intN - 1 & "."
End Sub

[Ципихович Эндрю]

подскажите как Вы умудрились в теле макроса кавычки указать?
« и »
???

[Aent]

Эндрю, зажмите клавишу Alt и наберите комбинацию цифр:

0136 € символ евро
0149 • «жирная» точка по центру
0153 ™ символ trade mark
0167 § параграф
0169 © символ копирайта
0174 ®
0176 ° символ градуса
0177 ±
0123 (или 123) {
0124 (или 124) |
0125 (или 125) }
0126 (или 126) ~
0130 ‚ нижняя одинарная кавычка
0132 „ открывающая «лапка»
0133 … многоточие
0134 † крестик (dagger)
0135 ‡ двойной крестик (double dagger)
0137 ‰ символ промилле
0139 ‹ левый «уголок»
0143 Џ
0145 ‘ верхняя одинарная кавычка (перевернутый апостроф)
0146 ’ апостроф
0147 “ закрывающая «лапка»
0148 ” английская закрывающая «лапка»
0150 – короткое тире (минус)
0151 — тире
0155 › правый «уголок»
0159 џ
0166 ¦
0171 « открывающая «ёлочка»
0172 ¬
0181 µ
0182 ¶
0183 · точка по центру
0185 №
0187 » закрывающая «ёлочка»
Набирать надо на блоке дополнительной цифровой клавиатуры (справа) с включённым Numlock
(Взято с http://d-fedot.livejournal.com/245808.html)

Так же см http://users.livejournal.com/_tsukasa/593719.html
В качестве альтернативы - удобен сервис http://copypastecharacter.com/

[Ципихович Эндрю]

спасибо!!!!!!!

[Sasha_Smirnov]

Not at all.