VPF::Создание таблицы в Word - Форум программистов

OrbitRus

Дата 5.6.2013, 21:21 (ссылка)

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

Загрузка ...

Новичок

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

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

как создать таблицу не в активном документе, а в определённом?

нужно в этом документе

Код


Dim objWord As Object


Set objWord = New Word.Application 'CreateObject("Word.Application")

или нужен другой код для создания нового документа?

Добавлено @ 21:26
из перепробанного только так создалась таблица

Код


ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitContent
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With

но при ActiveDocument она создаётся в 1-м открытом документе, а во 2-м ошибка!что делать??подскажите пожалуйста! smile

Это сообщение отредактировал(а) OrbitRus - 5.6.2013, 21:29

Akina

Дата 5.6.2013, 21:28 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Цитата(OrbitRus @ 5.6.2013, 22:21

)

не в активном документе, а в определённом?

Надо получить ссылку на запущенный Ворд и найти нужный документ в его коллекции Documents... как мне кажется. Как это сделать - не подскажу. в Вордовом VBA слабоват, а вкапываться в изучение его объектной модели тупо лениво.
В Экселе нужно просто найти нужный воркспейс (перебрав их коллекцию) и перебрать все его воркбуки... вероятно, и с вордом аналогичная фигня.
Обратись лучше с этим в форум по Офису...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

OrbitRus

Дата 5.6.2013, 21:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Akina, а почему так не работает

Код


objWord.Tables.Add Range:=Selection.Range, NumRows:=5, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitContent

Добавлено @ 21:33
пишет

Код


object doesn't support this property or method

Это сообщение отредактировал(а) OrbitRus - 5.6.2013, 21:34

Akina

Дата 5.6.2013, 21:45 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

См. объектную модель ворда - ответ там.
Навскидку - мне кажется, что коллекция таблиц таки не в объекте ворда, а в объекте документа, причём определённого.

--------------------

OrbitRus

Дата 5.6.2013, 23:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Akina, спасибо за помощь, но я ничего не понял=)

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