Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2018, 13:25   #1
Armageddets
Форумчанин
 
Регистрация: 30.06.2012
Сообщений: 145
По умолчанию Как из Delphi перед вставкой таблицы в Word вставить Название таблицы

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

Когда я пишу какой-то тектс, а потом вставляю таблицу - таблица полностью перекрывает этот текст. А вот текс после таблицы остается как положено.

Как сделать так, чтобы текст перед таблицей оставался? Заранее спасибо за помощь.

Пишу код так:
Код:
Word:=CreateOleObject('Word.Application');
  Word.Visible:=Visible;
  Word.Documents.Add;

  Word.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape;
  Word.ActiveDocument.Range.InsertAfter('Информация о клиентах'+#10);


    Word.ActiveDocument.Tables.Add(Word.ActiveDocument.Range,Form2.DataSource1.DataSet.RecordCount+2, 11); 
    WordTable:=Word.ActiveDocument.Tables.Item(1);
    WordTable.Style:='Сетка таблицы';
    //zagolovki
    For i:=1 To 11 Do
      Begin
        WordTable.Cell(1, i).Range.Font.Bold:=True; (* делаю заголовки жирные *)
        case i of
        1: WordTable.Cell(1, i).Range.Text:='Организация';
        2: WordTable.Cell(1, i).Range.Text:='ФИО директора';
        3: WordTable.Cell(1, i).Range.Text:='Адрес';
        4: WordTable.Cell(1, i).Range.Text:='Телефон';
        5: WordTable.Cell(1, i).Range.Text:='Е-mail';
        6: WordTable.Cell(1, i).Range.Text:='ОГРН';
        7: WordTable.Cell(1, i).Range.Text:='ИНН';
        8: WordTable.Cell(1, i).Range.Text:='КПП';
        9: WordTable.Cell(1, i).Range.Text:='БИК';
        10:WordTable.Cell(1, i).Range.Text:='Корреспондентский счет';
        11:WordTable.Cell(1, i).Range.Text:='Рассчетный счет';
        end;
      End;



     I:=2;
    
      Form2.DataSource1.DataSet.First;
      For j:=1 To Form2.DataSource1.DataSet.RecordCount Do
      begin
      WordTable.Cell(j+1,1).Range.Text:=Form2.DataSource1.DataSet.FieldByName('Организация').AsString;
      WordTable.Cell(j+1,2).Range.Text:=Form2.DataSource1.DataSet.FieldByName('ФИО').AsString;
      WordTable.Cell(j+1,3).Range.Text:=Form2.DataSource1.DataSet.FieldByName('Адрес').AsString;
      WordTable.Cell(j+1,4).Range.Text:=Form2.DataSource1.DataSet.FieldByName('Телефон').AsString;
      WordTable.Cell(j+1,5).Range.Text:=Form2.DataSource1.DataSet.FieldByName('e-mail').AsString;
      WordTable.Cell(j+1,6).Range.Text:=Form2.DataSource1.DataSet.FieldByName('ОГРН').AsString;
      WordTable.Cell(j+1,7).Range.Text:=Form2.DataSource1.DataSet.FieldByName('ИНН').AsString;
      WordTable.Cell(j+1,8).Range.Text:=Form2.DataSource1.DataSet.FieldByName('КПП').AsString;
      WordTable.Cell(j+1,9).Range.Text:=Form2.DataSource1.DataSet.FieldByName('БИК').AsString;
      WordTable.Cell(j+1,10).Range.Text:=Form2.DataSource1.DataSet.FieldByName('Корреспондентский_счет').AsString;
      WordTable.Cell(j+1,11).Range.Text:=Form2.DataSource1.DataSet.FieldByName('Рассчетный_счет').AsString;
      Form2.DataSource1.DataSet.Next;
      Inc(i);
      end;
    //End;


  Word.ActiveDocument.Range.InsertAfter(DateTimeToStr(now)+#10);


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 20.05.2018 в 20:19.
Armageddets вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вставить таблицу в ячейку таблицы word Ernest027 Общие вопросы Delphi 1 18.06.2015 12:55
Название новой таблицы delphi qadhhj Помощь студентам 0 04.04.2012 17:01
Как перевести данные таблицы из Word в Exel средствами Delphi? Pinkygirl Помощь студентам 0 20.12.2009 16:04
Помгоите со вставкой из таблицы в таблицу djdos БД в Delphi 2 25.11.2008 20:46
Как вычислять значения вне таблицы WORD, с использованием данных из таблицы WORD prikolist Microsoft Office Word 6 21.11.2008 13:17