Макрос на вставку строки в MS Word 10

[Valder]

Доброго времени суток.
Ситуация такова:
Есть таблица в Ворде и нужно после каждой строки вставить еще одну строку. Было бы ничего если бы строк было бы около 20.. %) но их к сожалению 170 с лишним.
Скажу честно. С VB я плохо знаком поэтому я пользовался записью макроса.
Вот то что у меня получилось..
Sub Макрос3()
'
' Макрос3 Макрос
'
'
Selection.InsertRowsAbove 1
Selection.Cells.Merge
Selection.TypeText Text:="ЛМКЛ"
Selection.SelectCell
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalTop
End Sub
Данный макрос просто создает нужную строку в избранном месте.

Подскажите пожалуйста как проще дописать (я так понимаю цикл) в макрос.
Заранее спасибо.

[Казанский]

Примерно так

Sub Макрос3()
Dim i&
If Not Selection.Information(wdWithInTable) Then _
    MsgBox "Поставьте курсор в таблицу и запустите снова", vbExclamation: Exit Sub
With Selection.Tables(1)
    For i = .Rows.Count To 1 Step -1
        .Rows(i).Range.Select
        Selection.InsertRowsBelow 1
        Selection.Cells.Merge
        Selection.TypeText Text:="ЛМКЛ"
        Selection.SelectCell
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        Selection.Cells.VerticalAlignment = wdCellAlignVerticalTop
    Next
End With
End Sub

[Valder]

Благодарствую