таблица word

[serg1969]

Как присвоить имена ячейкам в таблице word и вообще - как называется
тип переменной у таблицы и ячейки?...

Заранее благодарю...

[GSerg]

Не надо им имена присваивать. А вопрос уточни.

[WiCKED]

ДА имена ячейкам присваивать не надо.
Ты наверное имел введу вот это:

Dim i, j, a, b As Integer
Dim c As String
Dim d As String
Dim NewTable As Table


Sub Macros()

If ActiveDocument.Tables.Count = 0 Then

Set NewTable = ActiveDocument.Tables.Add(Selection.Range, 4, 4)

a = NewTable.Columns.Count
b = NewTable.Rows.Count


For i = 1 To b
For j = 1 To a
c = i
d = j
c = c + ";"
c = c + d
NewTable.Cell(i, j).Range.Text = c
Next j
Next i

End If

ActiveDocument.Tables(1).Select

b = ActiveDocument.Tables(1).Rows.Count

With Selection.Tables(1)
For i = 1 To b
If Int(i / 2) = (i / 2) Then
.Rows(i).Select
Selection.Range.HighlightColorIndex = wdBrightGreen
End If
Next i
End With

End Sub

В общем прога окрашивает, в первой таблице документа, ячейки в четных строках, а если их нет то создаёт таблицу и заполняет их номерами. Но такая фигня по-моему в помощи есть(но не уверен).

[serg1969]

Вообще то уже за это спасибо..
Дело такое - собираю в table разные selection данные в тч из 2-3 файлов
создаю ее автоматически... Проблема в том , что она из TABLE1 может стать потом TABLE2 ,3 Решить это можно конечно закладкой но как то все коряво получается..Мало знаю , занялся этой бедой под названием vba три месяца назад.. А справки в ms пишутся как бы для тех кто и так все знает...

[GSerg]

Просто некоторые вещи относятся к базовым аспектом программирования, а не к объектной модели offce. Такие вещи в справке не рассматриваются, как не рассматривается в правилах дорожного движения способ замены колеса.

dim t as table
set t=thisdocument.tables.add (...)