Выделение границы таблицы в Word-е - VB

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

Доброго всем дня. Не могу найти подходящую команду. Из VB6 я открываю и работаю с предварительно подготовленным документом Word (по сути шаблон). В шаблоне есть таблица 1x1. Я хочу записать туда текст и выделить ее границы. Текст записываю след образом:

                        wdDoc.Tables(1).cell(1, 1).Range.Select
                        wdDoc.Tables(1).cell(1, 1).Range.text = "Текст"

тут нет проблем. Но никак не могу выделить границы таблицы. Пробовал через:

                        With Selection.Borders(wdBorders)                           
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .color = Options.DefaultBorderColor
                        End With
                        With Selection.Borders(wdBorderLeft)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .color = Options.DefaultBorderColor
                        End With
                        With Selection.Borders(wdBorderBottom)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .color = Options.DefaultBorderColor
                        End With
                        With Selection.Borders(wdBorderRight)
                            .LineStyle = Options.DefaultBorderLineStyle
                            .LineWidth = Options.DefaultBorderLineWidth
                            .color = Options.DefaultBorderColor
                        End With

VB говорит, что не знает команд типа "wdBorderTop" Как выделить границы таблички?

Решение задачи: «Выделение границы таблицы в Word-е»

textual
                            Листинг программы 
                        
                            Const wdBorderTop = -1 '(&HFFFFFFFF)