Выделение строк (WORD) - VB

Формулировка задачи:

Ув.форумчане помогите пожалуйстас макросом. В вордовском документе есть таблица, которая состоит из четырех колонок, надо в ней выделить все строки в первой ячейке (колонке) которых содержится слово "Всего".

Решение задачи: «Выделение строк (WORD)»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> Cll <font color="blue">As</font> Cell
<font color="blue">For</font> <font color="blue">Each</font> Cll <font color="blue">In</font> ThisDocument.Tables(<font color="darkblue"><b>1</b></font>).Columns(<font color="darkblue"><b>1</b></font>).Cells
  <font color="blue">If</font> Left$(Cll.Range, <font color="darkblue"><b>5</b></font>) = <font color="teal">"всего"</font> <font color="blue">Then</font>
    Cll.Row.Range.Font.Bold = True
  <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>
                        