Как создать сложную таблицу в Word

Тема в разделе "Delphi - СОМ", создана пользователем zubr, 11 янв 2006.

  1. zubr

    zubr Гость

    Здравствуйте, все. Собственно сабж. Таблица в аттачменте. Вставка из шаблона готовой таблицы исключается.
    З.Ы. Только не посылайте на запись макроса, уже пробовал - не получается.
     

    Вложения:

    • tabl.jpg
      tabl.jpg
      Размер файла:
      26,4 КБ
      Просмотров:
      271
  2. Barmutik

    Barmutik Гость

    Данный код создаёт таблицу указанную Вами .. за исключением только квадратиков в каждой клетке (структура таблицы соблюдена).

    Код (Text):
    var
    App: Variant;
    ATable: Variant;
    ACell: Variant;
    begin
    App := CreateOleObject('Word.Application');
    App.Documents.Add;
    ATable := App.ActiveDocument.Tables.Add(App.ActiveDocument.Range(0, 0), 5, 5);
    ACell := ATable.Cell(1, 4);
    ACell.Split(2, 1);
    ACell := ATable.Cell(2, 4);
    ACell.Split(1, 3);

    ACell := ATable.Cell(1, 3);
    ACell.Split(2, 1);
    ACell := ATable.Cell(2, 3);
    ACell.Split(1, 3);

    App.Visible := True;
    За код сильно не пинать .. написан за 5 минут :)
     
  3. zubr

    zubr Гость

    Сэнк :) , почти то что мне надо, дальше я сам.
     
  4. Barmutik

    Barmutik Гость

    Да не за что ! Удачи!
     
Загрузка...

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