Подсчёт гласных в строке

[Геннадий Вершинин]

Подскажите можно ли придумать макрос для Word 2007. Мне нужно чтобы в таблице при написании стихов автоматически считались гласные буквы в строке для стиха. http://www.stihi.ru/avtor/vgf46. Я пишу стихи в вордовских таблицах. Так удобнее считать гласные чтобы выдержать ритм.
Возможно Вы используете иные приёмы информатики в стихосложении?

Буду признателен.

[viter.alex]

Низкий поклон за стихи. Обожаю поэзию.
Можно

Sub VowelsSum()
  Const Vowels = "аеёиоуыэюя"
  Dim nVowelsSum As Integer
  Dim sTemp As String
  Dim i As Integer
  For i = 1 To Len(Vowels)
    sTemp = Replace(Selection.Text, Mid(Vowels, i, 1), "", , , vbTextCompare)
    nVowelsSum = nVowelsSum + Len(Selection.Text) - Len(sTemp)
  Next
  Application.StatusBar = nVowelsSum & " гласных"
End Sub

Стихов не пишу, но читаю.
Мой любимый Маяковский:

Сообщение от Маяковский

Труд мой
        любому
             труду
                родствен.
Взгляните —
          сколько я потерял,
какие
   издержки
         в моем производстве
и сколько тратится
               на материал.
Вам,
  конечно, известно
                явление «рифмы».
Скажем,
    строчка
         окончилась словом
                        «отца»,
и тогда
      через строчку,
                слога повторив, мы
ставим
     какое-нибудь:
                ламцадрица-ца.
Говоря по-вашему,
             рифма —
                    вексель.
Учесть через строчку!—
                вот распоряжение.
И ищешь
   мелочишку суффиксов и флексий
в пустующей кассе
            склонений
                  и спряжений.
Начнешь это
         слово
             в строчку всовывать,
а оно не лезет —
            нажал и сломал.
Гражданин фининспектор,
                честное слово,
поэту
    в копеечку влетают слова.
Говоря по-нашему,
             рифма —
                  бочка.
Бочка с динамитом.
                Строчка —
                        фитиль.
Строка додымит,
         взрывается строчка,—
и город
     на воздух
           строфой летит.
Где найдешь,
        на какой тариф,
рифмы,
  чтоб враз убивали, нацелясь?
Может,
   пяток
      небывалых рифм
только и остался
            что в Венецуэле.
И тянет
     меня
        в холода и в зной.
Бросаюсь,
      опутан в авансы и в займы я.
Гражданин,
        учтите билет проездной!
— Поэзия
      — вся!—
           езда в незнаемое.
Поэзия —
        та же добыча радия.
В грамм добыча,
           в год труды.
Изводишь
       единого слова ради
тысячи тонн
        словесной руды.