Merge cells in word - VB

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

Может кто знает как программно соеденитъ 2 столбца в таблице Word

Решение задачи: «Merge cells in word»

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

                            <font color="blue">If</font> ActiveDocument.Tables.Count >= <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    <font color="blue">With</font> ActiveDocument.Tables(<font color="darkblue"><b>1</b></font>)
        .Cell(Row:=<font color="darkblue"><b>1</b></font>, Column:=<font color="darkblue"><b>1</b></font>).Merge _
            MergeTo:=.Cell(Row:=<font color="darkblue"><b>1</b></font>, Column:=<font color="darkblue"><b>2</b></font>)
    <font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">If</font>
                        