VPF::как програмно создать новую строку в таблице?

Houl

Дата 6.10.2009, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 18.9.2009

Репутация: нет
Всего: нет

Здравствуйе
Есть таблица в ворде, который через activX подключен к редактору Outlook 2007
Кодом

Код


For r = 1 To UBound(arFileM) - 1
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:=arFileS(r)
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:=arFileM(r)
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:=arFileD(r)
Next r

Пытаюсь создать столько строк, сколько запесей содержится в arFileM,
Однако когда он выполняется, то возникает ошибка
Run-time error 4605
Метод или свойство недоступны, поскольку все или некоторые элементы не ссылаются на таблицу.

А если без цикла

Код


objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="Файл  2"
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="Иванов Иван"
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="02.02.2009 18:35"
    objSel.MoveRight Unit:=wdCharacter, Count:=2
    objSel.MoveLeft Unit:=wdCharacter, Count:=1
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="Файл 3"
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="Петров Петр"
    objSel.MoveRight Unit:=wdCell
    objSel.TypeText Text:="03.03.2009 19:46"

То всё работает

ViterAlex

Дата 8.10.2009, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 94
Регистрация: 7.10.2009
Где: Харьков

Репутация: 7
Всего: 7

Я так понимаю, что таблица выбрана? Или что содержит в себе objSel? Если все же это Selection с таблицей, то попробуй так

Код

Dim oTbl As Object 'Таблица в выделении
Dim oNewRow As Object 'Новая строка

Set oTbl = objSel.Tables(1) 'Запоминаем таблицу в выделении
For r = 1 To UBound(arFileM) - 1
  Set oNewRow = oTbl.Rows.Add 'Добавляем строку в конец таблицы
  oNewRow.Cells(1).Range.Text = arFileS(r) 'Содержимое первой ячейки
  oNewRow.Cells(2).Range.Text = arFileM(r) 'Содержимое второй ячейки
  oNewRow.Cells(3).Range.Text = arFileD(r) 'Содержимое третьей ячейки
Next r

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »