Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Word и таблица Добавлено: 17.12.03 09:05  

Автор вопроса:  Alex_L

Есть задача: заполнить бланк сделанный в Word с помощью VB.

Как вставить текст в определенное место бланка я разобрался, описываю в шаблоне переменные а потом из VB их заполняю

    Set objDoc = objWord.Documents.Open(App.Path & "\Forma.doc")

        With objDoc.Variables

            .Add "Ndoc", Text2.Text

……

        End With

Подскажите, как добавить данные в существующую таблицу Word, и если необходимо добавить в таблицу строк?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Malyav



ICQ: 8440085 

Вопросов: 15
Ответов: 117
  Web-сайт: malyav.narod.ru
 Профиль | | #1 		Добавлено: 17.12.03 11:19

В документе есть коллекция Tables. Ну и как положено. у каждого объекта Table там есть свойства и методы (см. F2 - обжект броузер, в том числе количество строк). Если таблица одна, то

    objDoc.Tables(1).Rows.Add
    lCurrRow = objDoc.Tables(1).Rows.Count
    objDoc.Tables(1).Cell(lCurrRow, 1).Range.Text = sDate
    objDoc.Tables(1).Cell(lCurrRow, 2).Range.Text = sNum
    objDoc.Tables(1).Cell(lCurrRow, 3).Range.Text = sMsg
    If lCurrRow = 2 Then objDoc.Tables(1).Rows(1).Range.Bold = True

(кусок проекта)

Если много столбцов, можно использовать With

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам