Получить из excel цвет ячейки таблицы word - VBA

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

Здравствуйте,нужно получить макросом vba в excel,цвет определенной таблицы определенной ячейки из другого файла word. Как это реализовать?

Решение задачи: «Получить из excel цвет ячейки таблицы word»

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

                            Option Explicit
 
Public Function Table_colour(ByVal docObj As Document, ByVal n As Integer, ByVal i As Integer, ByVal j As Integer)
    Table_colour = docObj.Tables.Item(n).Cell(i, j).Range.Shading.BackgroundPatternColorIndex
End Function
Sub test_table_colour()
    MsgBox Table_colour(ActiveDocument, 1, 2, 1)
    MsgBox Table_colour(ActiveDocument, 1, 1, 1)
End Sub
                        