редактирование таблицы ворд через Lotusscript

Тема в разделе "Lotus - Программирование", создана пользователем -, 8 апр 2009.

  1. Гость

    Добрый день.
    Задача : есть шаблон, который содержит пару полей и таблицу, в таблице несколько полей, но необходимо иногда в процессе заполнения таблицы делить ячейки ....
    З1|З2|З3|З4|З5|З6|З7 |
    ___________________
    1 | 2 | 3 | 4 | 5 | 6 | 7 |
    | | |____________
    | | | 8 | 9 |10 |11|
    | | |____________
    | | |12|13 |14|15|
    ____________________
    как на 4-й ячейке произвести разделение на несколько строк, но при этом оставить 1,2 и 3 неделимыми.
     
  2. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    прошу прощения....
    имелось ввиду это?
    table.GIF
     
  3. Гость

    нет, не могу ворда файл прикрепить..
     

    Вложения:

    • 12.bmp
      Размер файла:
      817,2 КБ
      Просмотров:
      29
  4. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
  5. Гость

    а по другому никак? через lotusscript? можно же делить ячейки на столбцы, а как на строки? или может можно их программно объединять?
     
  6. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    а ну-ка ну-ка о делении ячейки на столбцы по подробней пожалуйста
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Если есть возможность, то лучше используй эксель. Там проще.
     
  8. Murtas

    Murtas Well-Known Member

    Регистрация:
    11 апр 2006
    Сообщения:
    123
    Симпатии:
    0
    да и Word VBA никто не отменял ...

    для Cell
    Код (Text):
    With ActiveDocument.Tables(1)
    .Cell(Row:=1, Column:=1).Merge _
    MergeTo:=.Cell(Row:=1, Column:=2)      
    End With
    для Cells
    Код (Text):
    Set myrow = Selection.Rows(1)
    myrow.Cells.Merge
    а вот тут было что-то подобное http://codeby.net/forum/threads/6094s0.html?p=29169& - правда на делфи
     
  9. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Murtas
    ооо.... прикольно.. надо потренироваться
     
Загрузка...

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