Таблицы в Word

[nikemike]

Вот почему мой код :

Код: Выделить всё

Set TableWord = DocWord.Tables.Add(DocWord.Application.Selection.Range, 3, 2)
TableWord.Rows(2).Height = CentimetersToPoints(1.1)
TableWord.Rows(3).Height = CentimetersToPoints(1.1)
TableWord.Rows(1).Height = CentimetersToPoints(0.6)
TableWord.Cell(1, 1).Range.Text = "Текст 1"
TableWord.Cell(2, 1).Range.Text = "Текст 2"
TableWord.Cell(3, 1).Range.Text = "Текст 3"

With DocWord.ActiveWindow.Selection
.Font.Bold = False
.ParagraphFormat.Alignment = 0
.Font.Size = 12
.Font.Name = "Times New Roman"
.InsertParagraphAfter
.InsertParagraphAfter
.InsertAfter "ТЕКСТ 4".EndOf
End With

ТЕКСТ 4 выводит в в ячейку 1,1 а?

[alibek]

Видимо потому, что курсор находится именно на этой ячейке.

[nikemike]

Значит надо закончить этим кодом таблицу

Код: Выделить всё

DocWord.Application.Selection.EndOf

?

[nikemike]

ну помогите, а!?

[lord0n]

поставь переход куда те нужно
аля TableWord.cell(4, 1).Range.select

[nikemike]

Пробуем!

[nikemike]

Тоесть то что ты написал надо добавить?

[lord0n]

Тоесть то что ты написал надо добавить?

я этот код не пробовал, просто так делается в экселе

[nikemike]

не пашет

[nikemike]

поставь переход куда те нужно
аля TableWord.cell(4, 1).Range.select

а еще методы знаешь перехода?

[lord0n]

ща разберусь

[lord0n]

Selection.Cells(1,1).Select

толькочто проверил - работает

[nikemike]

так так это куды вставлять?

[lord0n]

так так это куды вставлять?

я бы сделал так:
сначала вставляешь текст, а потом его форматируешь

[nikemike]

её надо вставлять в форматирование текста?

[nikemike]

её (Selection.Cells(1,1).Select) надо вставлять в форматирование текста?

[GSerg]

nikemike, вместо флуда пользуйся кнопкой редактирования.

[nikemike]

какой кнопкой?

[lord0n]

попробуй сначала сам поковыряться, а потом спрашивать
я в ворде никогда в жизни не програмил, однако вишь - разобрался

[nikemike]

Хорошо lord0n но все равно спасибо!