Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Word текст перед и после таблицы


Автор: r00xus 12.5.2013, 13:20
здравствуйте уважаемые коллеги. Создаю документ 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
    
    'Как сделать текст после таблицы?

как вставить текст перед таблицей и после таблицы?
заранее благодарен.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)