-
Основы Delphi
- Основы программирования на Delphi
- Компоненты Delphi. Начинаем писать свои первые приложения на Delphi
- Основные принципы программирования в Delphi. Начинаем программировать самостоятельно
- Delphi и Microsoft Word
- Delphi и Microsoft Excel
- Delphi и Microsoft Access
- Delphi и OpenOffice Writer
- Delphi и OpenOffice Calc
- Создание игр на Delphi
- Игра Пристрели птичку
Delphi и MSOffice
Delphi и OpenOffice
Delphi и Интернет
Delphi и игры
Delphi Android
Школа программирования Delphi
Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.
Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!
Главная » Уроки Delphi » Delphi и MSOffice » Delphi и Microsoft Word |
Функция, реализующая механизм доступа к OLE-объекту, находится в библиотеке ComObj.pas. Эта функция – CreateOleObject. Ее единственным аргументом является строка-идентификатор, а возвращает она ссылку на объект. Доступ к приложению Word осуществляется, как правило, посредством основных двух объектов, Word.Application и Word.Document. Они же обеспечивают доступ и к другим объектам Word (текст, таблицы, кнопки, меню и т.д.). Наиболее легкий метод работы с COM-сервером Word базируется на использовании переменных типа Variant. Давайте на примере рассмотрим создание документа Word помощью Delphi. Для начала создадим новый проект (File | New | VCL Foms Application-Delphi) и поместим на него 4 кнопки (TButton). Поменяем заголовки (свойство Caption) этих кнопок на: "Создать документ Word", "Открыть документ Word", "Сохранить документ Word", "Закрыть документ Word". Как понятно из названий, мы будем открывать, создавать, сохранять и закрывать документ Word при нажатии на эти кнопки. Чтобы начать работать с Word необходимо в модуле формы указать ссылку на использование библиотеки ComObj, поэтому в разделе uses мы дописываем ComObj. Также нам необходимо объявить переменную типа Variant. Давайте создадим обработчик события OnClick для кнопки "Создать документ Word" и напишем код: Код procedure TForm1.Button1Click(Sender: TObject); begin w:=CreateOleObject('Word.Application'); end; Если сейчас запустить нашу программу и нажать на кнопку "Создать документ Word", то приложение Word будет запущено, но его окно не будет отображено на экране монитора. В память компьютера будет загружен объект Application, который обеспечивает доступ ко всем внутренним объектам, коллекциям и свойствам. Сейчас нас интересует свойство Visible этого объекта. Если значение этого свойства установить в True, то окно приложения Word станет видимым. Поэтому давайте допишем еще одну строчку в наш код: Код procedure TForm1.Button1Click(Sender: TObject); begin w:=CreateOleObject('Word.Application');// запуск приложения Word w.Visible:=true; // делаем Word видимым end; Вот теперь если запустить программу и нажать на кнопку "Создать документ Word", то наше приложение Word станет видимым и отобразится на экране монитора. Для того чтобы создать новый документ, необходимо использовать метод Add, коллекции Documents. Поэтому если мы хотим создать новый документ Word с помощью Delphi, необходимо написать: Код procedure TForm1.Button1Click(Sender: TObject); begin w:=CreateOleObject('Word.Application');// запуск приложения Word w.Documents.Add; // создание нового документа w.Visible:=true; // делаем Word видимым end; В этом коде, после выполнения метода Add, будет создан новый документ, который отобразится в окне приложения Word. Обратите внимание, что видимым наш документ (w.Visible:=true) я делаю в самую последнюю очередь. При формировании отчетов, рекомендуется так делать. Это сокращает время создания отчетов и повышает производительность работы приложений. С созданием документа Word в Delphi разобрались. Теперь перейдем к открытию документа Word. Для этого создаем обработчик события OnClick для кнопки "Открыть документ Word" и напишем следующее: Код procedure TForm1.Button2Click(Sender: TObject); begin w:=CreateOleObject('Word.Application');// запуск приложения Word w.Documents.Open(ExtractFilePath(paramstr(0))+'/Delphi and MS Word.doc'); //открываем документ Word находящийся в папке с программой w.Visible:=true; // делаем Word видимым end; Синтаксис метода Open глядит следующим образом: Код Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format) Давайте рассмотрим аргументы метода Open, их типы и функциональное значение: FileName: string — путь и имя файла; ConfirmConversions: boolean — False — не открывать диалоговое окно «Преобразование файла» при открытии файла, формат которого не соответствует формату Word (doc или docx) ReadOnly:boolean — True — открыть документ в режиме «Только для чтения» AddToRecentFiles: boolean — True, чтобы добавить документ в список недавно открытых документов. PasswordDocument: string — пароль для открытия документа PasswordTemplate: string — пароль для открытия шаблона Revert : boolean — True, чтобы вернуться к сохраненному документу, если этот документ открывается повторно. WritePasswordDocument: string — пароль для сохранения измененного документа в файле WritePasswordTemplate:string — пароль для сохранения изменений в шаблоне Format:integer — формат открываемого документа. Обязательным параметром метода Open является только FileName, остальные параметры могут отсутствовать, как отсутствуют в вышеприведенном примере кода. Но если вдруг нам понадобится воспользоваться некоторыми из этих параметров, то их необходимо явно указать при вызове метода. Например, если мы решим открыть файл в режиме "Только для чтения", то код будет выглядеть следующим образом: Код procedure TForm1.Button2Click(Sender: TObject); begin w:=CreateOleObject('Word.Application');// запуск приложения Word w.Documents.Open(ExtractFilePath(paramstr(0))+'/DelphiSchool.doc', ReadOnly:=true); // открываем документ Word находящийся в папке с программой в режиме "Только для чтения" w.Visible:=true; // делаем Word видимым end; С открытием документа Word тоже разобрались. Переходим к сохранению документа. Для кнопки "Сохранить документ Word" создаем обработчик события OnClick и пишем: Код procedure TForm1.Button3Click(Sender: TObject); begin w:=CreateOleObject('Word.Application');// запуск приложения Word //открываем документ Word находящийся в папке с программой в режиме "Только для чтения" w.Documents.Open(ExtractFilePath(paramstr(0))+'/DelphiSchool.doc', ReadOnly:=true); // сохраняем документ в папку с программой под именем DelphiSchool Copy.doc w.ActiveDocument.SaveAs(ExtractFileDir(paramstr(0))+'/DelphiSchool Copy.doc'); w.Visible:=true; // делаем Word видимым end; Аргументы метода SaveAs, их типы и функциональное назначение представлены ниже: FileName: String - Путь и имя файла FileFormat - Число Формат файла LockComments: Boolean - True - не сохранять комментарии Password: String - Пароль, который будет использоваться при открытии документа AddToRecentFiles: Boolean - True - добавить имя файла в список меню File WritePassword: String - Пароль, который будет использоваться для сохранения документа ReadOnlyRecommended: Boolean - True - в последующем документ можно открыть "только для чтения" EmbedTrueTypeFonts: Boolean - True - при сохранении перевести шрифты документа в TrueType SaveNativePictureFormat: Boolean - Используется для импорта графики из форматов, не поддерживаемых Windows. True - импортировать только графику, поддерживаемую Windows SaveFormsData: Boolean - True - сохранить форму документа без текста SaveAsAOCELetter: Boolean - Используется в версиях Word для компьютеров Apple Macintosh При вызове метода SaveAs, как и при Open, можно задавать как один, так и несколько аргументов. Но, как правило, достаточно только первого аргумента (путь и имя файла). Ну и последнее что мы рассмотрим – это закрытие документа. Закрыть документы можно с помощью метода Close коллекции Documents. Создадим обработчик события OnClick для кнопки "Закрыть документ Word" и напишем код: Код procedure TForm1.Button4Click(Sender: TObject); begin w.ActiveDocument.Close(True); // сохраняем и закрываем Word end; После того как документ закрыт, можно закрывать и приложение Word: Код procedure TForm1.Button4Click(Sender: TObject); begin w.ActiveDocument.Close(True); // сохраняем и закрываем Word w.Quit; end; К уроку (статье) Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi | |
Добавить Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi в закладки: |
Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery |
Delphi и RadioGroup. Пример работы с группой компонентов RadioButton в Делфи |
Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi |
Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки |
Delphi и ComboBox. Пример работы с ниспадающими списками в Делфи |
Delphi и TEdit. Пример работы со строками ввода в Делфи |
Константы в Delphi. Объявление констант в Делфи |
Управление циклами в Delphi. Операторы Continue и Break. |
Delphi и CheckBox. Пример работы с CheckBox в Делфи |
Delphi и TPanel. Пример работы с панелями в Делфи |
Всего комментариев: 1 | ||||||
|