Работа Delphi с Word

Подавляющее большинство пользователей компьютеров используют в своей работе текстовый редактор Microsoft Office Word. В нашей стране, да и во всем мире он пользуется заслуженной популярностью. Работать с ним удобно и в основном он интуитивно понятен.

И было бы замечательно, если наше дельфи приложение результаты своей работы предоставило нам в привычном редакторе Word. В таком виде отчет можно и отредактировать как нам надо. Добавить какие то данные, а что то удалить.

Давайте теперь от слов Пример использования Wordперейдем к делу. Расположим на форме следующие компоненты: Edit, Memo, 3 кнопки Button и 2 Label, как показано на рисунке. Label1 свойство Caption - Заголовок, Label2 - Документ; Edit находится под заголовком; под Документом компонент Memo.

Создадим в секции public глобальную переменную vWord, определим ее тип Variant. Подключим модуль ComObj  (uses ComObj;) Напишем обработчик кнопки "Новый" -

procedure TForm1.Button1Click(Sender: TObject);
begin
   vWord:=CreateOleObject('Word.Application');
   vWord.Visible:=True;
   vWord.Documents.Add;
   vWord.Selection.Font.Size := 18;
   vWord.Selection.Font.Bold := True;
   vWord.Selection.TypeText(' ---------------------------- ');
   vWord.ActiveDocument.Range.InsertAfter(#13#10+Edit1.Text + #13#10#13#10+ Memo1.Text);
end;

Первая строка - vWord:=CreateOleObject('Word.Application'); запрашивает объект Word, с названием Application. На более простом языке если мы откроем диспетчер задач, то увидим запущенный процесс редактора Word. Вторая строка делает его видимым, но там не будет рабочего листа, где можно вводить текст. Эту задачу решает третья строчка. 4 - задает размер шрифта, 5 - делает его жирным. 6 - выводит длинную линию, можно было вместо нее написать любой текст. И последняя выводит содержимое компанентов  Edit и Memo. Символы  #13#10 - дают указание перейти на новую строчку.

Программный код кнопки Сохранить будет таким -

vWord.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'otchet.doc');

Мы сохраним документ в файле 'otchet.doc' в каталоге программы.

Обработчик кнопки выход будет "close;" он будет закрывать программу.

Для закрепления материала усовершенствуйте программу так чтобы у нас вместо 2 кнопок Новый и Сохранить была 1, которая формировала файл отчета и стирала существующие записи в форме приложения. Word во время создания не открывался.

Понравилась статья? Раскажите друзьям:
Общайтесь со мной

Оставить комментарий

Ваш email не будет опубликован. Обязательные поля отмечены *

Вы можете использовать это HTMLтеги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>