Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Word текст перед и после таблицы 
:(
    Опции темы
r00xus
Дата 12.5.2013, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
здравствуйте уважаемые коллеги. Создаю документ Word с несколькими таблицами и текстом между ними. таблицу вставляю вот так:
Код

    Dim Range As Range
    Dim Table As Table
    Dim Cell As Cell
    Dim Rows As Rows
                        
    'Как сделать текст перед таблицей?
    
    Set Range = Selection.Range
    
    Set Table = ActiveDocument.Tables.Add(Range, 1, 3)
    ' поле 1
    Set Cell = Table.Cell(1, 1)
    Set Range = Cell.Range
    Range.Text = "Поле1"
    ' поле2
    Set Cell = Table.Cell(1, 2)
    Set Range = Cell.Range
    Range.Text = "Поле2"
    ' поле3
    Set Cell = Table.Cell(1, 3)
    Set Range = Cell.Range
    Range.Text = "Поле3"
    
    ' как-то заполняем 10 строк
    For i = 1 To 10
        Set Rows = Table.Rows
        Rows.Add
    Next
    
    'Как сделать текст после таблицы?

как вставить текст перед таблицей и после таблицы?
заранее благодарен.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

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

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0365 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.