Всем здравствуйте. Помогите пожалуйста. Вот код из FoxPro 6.0 создающий в Word'е таблицу. Вопрос как сделать эту таблицу невидимой, т.е. чтобы она не печаталась (в Word'е это делается через "Нарисовать таблицу", "Внешние границы", "Удалить границы"). Если записать макрос, то получится нечто вроде

Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Как этот макрос подкорректировать для того, чтобы FoxPro его обработал и таблица стала невидимой, но существовала.


#INCLUDE msword.h
#DEFINE True .T.
#DEFINE False .F.

LOCAL loWord, loTable, lnRow, lnColumn
loWord = GetCOMInstance("Word.Application")
loWord.Visible = .T.
WITH loWord
.Documents.Add("Normal", False)
.ActiveDocument.Tables.Add(.Selection.Range, 6, 2, wdWord9TableBehavior, wdAutoFitFixed)
loTable = .ActiveDocument.Tables(1)
WITH .Selection
.MoveRight(wdCharacter, 2, wdExtend)
.Cells.Merge()
.MoveDown(wdLine, 1)
.MoveRight(wdCharacter, 2, wdExtend)
.Cells.Merge()
.MoveDown(wdLine, 2)
.MoveRight(wdCharacter, 2, wdExtend)
.Cells.Merge()
.MoveDown(wdLine, 1)
.MoveRight(wdCharacter, 2, wdExtend)
.Cells.Merge()
ENDWITH
ENDWITH