Как добавить таблицу в Word документ из встроенной вьюшки

Тема в разделе "Visual Basic", создана пользователем Sandro, 3 дек 2009.

  1. Sandro

    Sandro Гость

    Встала такая проблемка , нужно сформировать вордовский документ с заполняемыми полями и сформировать табличку из встроенного в форму представления, как заполнить поля понятно, как импортировать в эксель тоже, а вот как совладать с вордовской таблицей не пойму. Если есть подобный пример буду очень благодарен, а то сроки уже поджимают ((((

    <table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
    <FONT color='#ffffff' size='+3'> ! </font>
    </td><td align="midle" valign='top' style='background:#fff;'>А при чем здесь Lotus вообще? Изучайте VBA Word. Перемещено.</td>[/tr]</table>
     
  2. Klido

    Klido Гость

    Table Object
    Represents a single table. The Table object is a member of the Tables collection. The Tables collection includes all the tables in the specified selection, range, or document.
    Remarks


    Use Tables(Index), where Index is the index number, to return a single Table object. The index number represents the position of the table in the selection, range, or document. The following example converts the first table in the active document to text.

    ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs

    Use the Add method to add a table at the specified range. The following example adds a 3x4 table at the beginning of the active document.

    Set myRange = ActiveDocument.Range(Start:=0, End:=0)
    ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
     
  3. Sandro

    Sandro Гость

    Спасиб, понял
     
  4. Sandro

    Sandro Гость

    Спасиб !!!
     
  5. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Похоже, это неочевидно:
    Если обращаемся к таблице не напрямую из VBA Word, используется такой синтаксис
    Код (Text):
    Set myRange = Application.ActiveDocument.Range(0, 0)
    Application.ActiveDocument.Tables.Add(myRange, 3, 4)
    Правильный порядок параметров смотрим в справке VBA.
    (Константы нужные - в окне просмотра переменных, например)
     
Загрузка...

Поделиться этой страницей