[Rokuell]

Чтобы таблица была видна,
добавь в конце:

Код:

    WordTable.Borders.Item(wdBorderTop).Visible:=True;
    WordTable.Borders.Item(wdBorderLeft).Visible:=True;
    WordTable.Borders.Item(wdBorderBottom).Visible:=True;
    WordTable.Borders.Item(wdBorderRight).Visible:=True;
    WordTable.Borders.Item(wdBorderHorizontal).Visible:=True;
    WordTable.Borders.Item(wdBorderVertical).Visible:=True;

    WordApp   := Unassigned;
    NewDoc    := Unassigned;
    WordTable := Unassigned;

Значения констант:

Код:

const
  { WdBorderType }
  wdBorderTop = $FFFFFFFF;
  wdBorderLeft = $FFFFFFFE;
  wdBorderBottom = $FFFFFFFD;
  wdBorderRight = $FFFFFFFC;
  wdBorderHorizontal = $FFFFFFFB;
  wdBorderVertical = $FFFFFFFA;
  wdBorderDiagonalDown = $FFFFFFF9;
  wdBorderDiagonalUp = $FFFFFFF8;

PS: открываешь Word, нажимаешь Alt+F11, запускаешь там Object Browse ( F2 ) и ищешь нужные свойства

PPS: Кстати, самому было интересно - раньше никогда с Word'ом не работал