Delphi как открыть word
Delphi – это один из самых популярных и эффективных инструментов разработки сложных приложений и возможность интегрировать средства приложений MS Office в разрабатываемые в этой среде проекты.
Известно, что Word и Excel является OLE – объектом. Суть OLE технологии возможность из разрабатываемого приложения (клиента) взаимодействовать с другими приложениями (серверами). Все приложения Microsoft Office являются так называемыми "серверами автоматизации". Microsoft Word , являясь сервером OLE , позволяет подключаться к себе клиентам и использовать свои методы и свойства.
Работа с MS Word в Borland Delphi. Для работы с Word файлами нам потребуется библиотека ComObj , которая входит в стандартную поставку Borland Delphi . Подключается она в разделе Uses .
Для начала нужно подключиться к Word серверу, другими словами ещё называют инициализацией. Это происходит следующим образом :
Сначала вводим вариантную переменную, затем создаем объект OLE ' Word . Application ' , и присваиваем его этой переменной. Эта процедура называется "создание экземпляра сервера". Создав этот объект, мы затем программируем его свойства и методы.
После создания экземпляра сервера, нужно либо создать новый документ, либо открыть уже имеющийся.
Создание нового документа. Создание документа производится методом Add . Синтаксис метода :
Add (Template, NewTemplate, DocumentType, Visible);
Все параметры метода – типа Variant необязательны.
Имя шаблона, по которому создается новый документ. Если значение не указано, то используется шаблон Normal .
NewTemplate
Если использовать значение True , то новый документ открывается как шаблон. Значение по умолчанию – False .
DocumentType
Управляет видимостью созданного документа. Если указать значение True , то документ будет видим. По умолчанию Microsoft Word открывает документ с свойством Visible установленным в True .
Так как все параметры являются необязательными, то для создания нового документа по шаблону Normal метод можно применить без параметров:
Application . Documents . Add ;
Открытие документа . Открытие существующего документа Word реализуется методом Open . Синтаксис метода :
Open (FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
Кроме параметра FileName все остальные необязательны.
В параметре указывается имя файла документа, включая путь. Обязательный параметр.
ConfirmConversions
Если в значении этого параметра указать значение True , то в случае открытия документа с форматом, отличного от Word , будет выводится диалоговое окно конвертирования файла. Необязательный параметр.
Указывая True , открываем документ только для чтения. Необязательный параметр.
AddToRecentFiles
Устанавливая значение в True , позволяем добавлять имя открываемого файла в список недавно открытых файлов в меню Файл. Необязательный параметр.
PasswordDocument
Пароль открываемого документа. Необязательный параметр.
PasswordTemplate
Пароль открываемого шаблона. Необязательный параметр.
Параметр, предусмотренный для открытия файла с именем, уже открытого в данный момент. Если указать True то все изменения текущего документа не сохраняются и открывается файл с подобным именем. При значении False открытый файл активизируется, а новый не открывается. Необязательный параметр.
WritePasswordDocument
Пароль для сохраняемого документа. Необязательный параметр.
WritePasswordTemplate
Пароль для сохраняемого шаблона. Необязательный параметр.
Конвертор файла, необходимый для открытия документа. Может принимать одно из следующих значений типа:
WdOpenFormat :
wdOpenFormatAllWord ,
wdOpenFormatAuto , wdOpenFormatDocument, wdOpenFormatEncodedText, wdOpenFormatRTF,
wdOpenFormatTemplate ,
wdOpenFormatText , wdOpenFormatUnicodeText,
wdOpenFormatWebPages .
По умолчанию wdOpenFormatAuto . Необязательный параметр.
Кодировка для просмотра документа, может принимать любое правильное значение из ряда констант MsoEncoding . По умолчанию используется системная кодовая станица, установленная по умолчанию. Необязательный параметр.
Устанавливая True , предусматриваем видимое открытие документа. По умолчанию установлено True . Необязательный параметр.
Например, для открытия документа " c :\1. doc " метод Open применяется как
Application.Documents.Open( 'c:/1.doc');
Все элементы рассматриваемого OLE объекта являются так называемыми коллекциями. Коллекция – это объект, содержащий специфический набор методов и свойств. Коллекция похожа на динамический массив. В ней содержится набор объектов, которые обычно имеют один тип. Вы можете добавлять в нее элементы, удалять и получать их значения. Доступ к элементу осуществляется либо по его порядковому номеру, либо по его имени. Например, все открытые документы представляют собой коллекцию.
Обращение к документу . Обращение к открытому документу, как к элементу набора коллекции, можно по порядковому номеру методом Item . Например, обращение ко второму документу будет выглядеть как:
Application . Documents . Item (2);
Нумерация всех элементов в коллекции начинается с единицы, а не с нуля. Аналогичную операцию можно осуществить еще как:
Application . Documents (2);
Для работы с документом, его сначала нужно активизировать, т.е. передать ему фокус, подготовить для редактирования или других операций. Активизирование документа производится методом Activate. Для активизации документа, его нужно выбрать из коллекции по его порядковому номеру:
Application.Documents.Item(2).Activate; или по имени файла
Application.Document( 'c:\1.doc').Activate;
К активному документу можно обращаться, используя свойство ActiveDocument, например, закрыть активный документ:
Application . ActiveDocument . Close ;
Вставка текста в документ . Далее по тексту мы в основном будем манипулировать коллекций объектов Range , т.е. весь текст удобно будет рассматривать как несколько непрерывных областей. Добавление текста осуществляется следующим образом: сначала создается объект Range , представляющий собой непрерывную область документа, затем методами этого объекта добавляется текст. Объект Range может объявляться как:
выражение. Range (начало области, конец области);
Например, объявленный ниже объект Range 1 охватывает собой первые 10 символов второго документа.
В документе сначала можно создавать абзацы, т.е. объекты Paragraphs , и затем объединять их в области. К примеру, в начале активного документа методом Add объекта Paragraphs создаем новый абзац, затем на его основе создаем объект Range 1:
Вставка текста производится двумя методами объекта Range : InsertAfter и InsertBefore . Синтаксис методов:
выражение. InsertAfter(текст);
Этим методом производится вставка текста после начала объекта Range выражение. InsertBefore( текст), а этим – до.
При использовании этих методов, в качестве параметра указать нужно только текст в апострофах. К примеру, вызов двух операторов даст нам две строки: это вставленный текст InsertBefore и это текст InsertAfter :
Range1.InsertAfter( ' это текст InsertAfter ');
Range 1. InsertBefore ( 'это вставленный текст InsertBefore ');
У объекта Range есть много полезных свойств. Например:
Свойство Font (шрифт), которое имеет свои подсвойства:
Font.Bold:=True – жирность шрифта
Font.Name:="Arial" – название шрифта
Font.Size:= 24 – размер шрифта
Font.Color:= clRed – цвет шрифта
Font.Italic:= True – наклонность шрифта
Например , вставка жирной строки зеленого цвета:
Range1.InsertAfter( ' вставленная строка ');
Объект типа Range можно форматировать . Например, следующей строкой содержимое объекта Range выравнивается по центру:
Работа с Excel файлами в Delphi. Для работы с Excel файлами в Delphi так же нужно подключить модуль ComObj в разделе Uses .
Для начала нужно подключиться к Excel серверу, другими словами ещё называют инициализацией. Это происходит следующим образом:
Excel := CreateOleObject (' Excel . Application ');
Сначала вводим вариантную переменную, затем создаем объект OLE ' Excel . Application ' , и присваиваем его этой переменной. Эта процедура называется "создание экземпляра сервера". Создав этот объект, мы затем программируем его свойства и методы.
После создания экземпляра сервера, нужно либо создать новую книгу, либо открыть уже имеющуюся.
Создание новой книги:
Открытие существующей книги (где путь – путь к файлу с расширением xls.):
Excel . Workbooks . Open [путь]; //( Excel . Workbooks . Open (' c :\2. xls '));
Открытие существующей книги только для чтения:
Excel.Workbooks.Open[ путь , 0, True];
Закрытие Excel:
Excel . Application . Quit ;
Отображаем или скрываем Excel на экране:
Печать содержимого активного листа Excel:
Чтение/запись данных в Excel . Доступ к ячейке в текущей книге Excel можно осуществить следующим образом:
// запись значения в ячейку
Excel.Range['A2']:=' Привет !';
// чтение значения из ячейки
s:=Excel.Range['A2']; где A2 – адрес ячейки .
Или используя стиль ссылок R1C1:
Excel . Range [ excel . Cells [2, 2]]:='Привет!'; где [2, 2] – координата ячейки.
Вообще, ячейке Excel можно присваивать любое значение (символьное, целое, дробное, дата) при этом Excel установит форматирование в ячейке применяемое по умолчанию.
Формат ячеек в Excel . Выделить (выбрать) группу ячеек для последующей работы можно так:
Excel.Range[Excel.Cells[1, 1],Excel.Cells[5, 3]].Select; либо
При этом будет выделена область находящаяся между ячейкой A1 и C5.
После выполнения выделения можно установить:
1) Объединение ячеек :
Excel.Selection.MergeCells:=True;
2) Перенос по словам:
Excel . Selection . WrapText := True ;
3) Горизонтальное выравнивание:
Excel.Selection.HorizontalAlignment:=3;
при присваивании значения 1 используется выравнивание по умолчанию,
при 2 – выравнивание слева,3 – по центру, 4 – справа.
4) Вертикальное выравнивание
Excel.Selection.VerticalAlignment:=1;
присваиваемые значения аналогичны горизонтальному выравниванию.
5) Граница для ячеек:
Excel.Selection.Borders.LineStyle:=1;
При значении 1 границы ячеек рисуются тонкими сплошными линиями. Кроме этого можно указать значения для свойства Borders, например, равное 3. Тогда установится только верхняя граница для блока выделения:
Excel.Selection.Borders[3].LineStyle:=1;
Значение свойства Borders задает различную комбинацию граней ячеек.В обоих случаях можно использовать значения в диапазоне от 1 до 10.
- как работать с объектом Excel, внедренном в документ Word
- как работать с документом Word, внедренным в Excel.
План статьи:
Прежде, чем начать изложение основного материала, следует упомянуть некоторые моменты работы с Word, т.к. в блоге я их не касался, но эти основы пригодятся для освоения основного материала статьи.
1. Азы работы с MS Word в Delphi
Запуск MS Word в принципе ни чем не отличается от запуска MS Excel за одним небольшим исключением — меняется параметр функции CreateOLEObject:
Но, чтобы не повторяться дважды я расскажу ещё один дополнительный момент, который Вам пригодиться для дальнейшей работы: как подключиться к уже выполняющемуся приложению MS Office, чтобы не создавать лишних копий процессов.
Для того, чтобы подключиться к уже запущенному приложению достаточно использовать функцию GetActiveOleObject, единственным параметром которой является имя класса. Например, чтобы подключиться к запущенному приложению MS Word необходмо выполнить:
Соответственно, чтобы не гадать запущена или не запущена та или иная программа пакета MS Office достаточно воспользоваться связкой двух функций:
Для того, чтобы открыть уже имеющийся документ Word необходимо воспользоваться методом Open объекта Documents, например так:
После того как документ открыт, Вы можете его редактировать, изменять текст, параметры страницы и т.д., но сегодня нам это не важно. Главное сегодня — научиться работать с объектами. И с этого момента начинается решение первой задачи.
2. Как работать с объектом Excel, внедренном в документ Word
Каждый документ Word имеет коллекцию Shapes, которая позволяет добавлять в документ объекты, созданные и отображаемые с помощью программ-серверов OLE (OLE-серверов). OLE-объекты в документах Word могут отображаться также, как они отображаются в приложениях, предназначенных для их создания и редактирования. Все наверно пользовались редактором формул Math Type? Вот вам простой OLE-сервер. Добавляете OLE-объект формулы в документ — открывается окно Math Type где вы вводите то, что хотите увидеть и потом формула отображается в документе Word.
Другое дело, когда Вы пробуете вставить в документ Word, например файл mp3. В этом случае объект будет отображен в документе в виде ярлыка, но, тем не менее будет внесен в коллекцию Shapes и до него можно будет добраться из Delphi.
Теперь попробуем посмотреть как выглядит добавление OLE-объектов. В простейшем случае Вы открываете Word, создаете документ и выбираете «Правка — Вставить — Объект» и перед Вами открывается окно с перечнем всех OLE-объектов, которые Вы можете использовать в документе. Выбираете объект, вставляете в документ — работаете. Обратите внимание на рисунок — в окне на рисунке как раз отображены всевозможные объекты нашего с Вами исследования.
Для того, чтобы вставить OLE-объект в документ Word из Delphi необходимо воспользоваться методом AddOleObject коллекции Shapes, который имеет следующий вид:
Shapes.AddOleObject(ClassType, FileName, LinkToFile, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Range)
ClassType — имя, используемое для включения указанного объекта OLE. Например, чтобы вставить в документ Word диаграмму Excel следует использовать
для добавления листа Excel, соответственно:
и так далее. В принципе ничего сложного нет — вставить можно, что угодно, хоть exe-файл :)
FileName — имя файла, из которого должен быть создан объект. Если этот аргумент опущен, то используется текущая папка. Вы должны указать либо ClassType либо FileName, но никак не одновременно оба параметра.
LinkToFile — True для того, чтобы связать OLE-объект с файлом, из которого он был создан. False, чтобы сделать объект OLE-объект независимым от копии файла, т.е. включить объект в документ Word. Если Вы определили значение для ClassType, аргумент LinkToFile должны быть ложными. Значение по умолчанию False.
DisplayAsIcon — True для отображения объекта OLE в виде значка. Значение по умолчанию False.
IconFileName — Файл, который содержит значок для отображения объекта OLE.
IconIndex -индекс иконки отображения из IconFileName. Значение по умолчанию — ноль.
IconLabel — подпись к иконке объекта.
Range — диапазон, где объект OLE будет размещен в тексте. Объект OLE заменяет выбранный диапазон. Если этот аргумент опущен, объект вставляется автоматически (в текущую позицию курсора в документе).
Давайте теперь продемонстрируем использование этого метода на практике и, заодно, приготовим плацдарм для дальнейшей работы. Рассмотрим как можно вставить чистый лист Excel в документ Word. Причем вставим лист в нужные нам координаты и зададим ему (листу) длину и ширину:
Как видите, вместо того, чтобы указать объект Range мы просто расписали его параметры Left, Top, Width и Height. После выполнения этих операций в документе doc аккурат в верху страницы вставиться лист Excel.
Теперь, когда лист вставлен, можно приступать к дальнейшему изучению «глубин» OLE-серверов Microsoft.
Создадим новую переменную, в которой будем хранить ссылку на OLE-объект.
и сразу получим ссылку на наш лист Excel в Word’е:
Так будет проще разбираться и избавит нас от лишней писанины.
Представим себе, что мы ничего абсолютно не знаем про то, что лежит в MyOLE. Знаем только то, что это элемент из коллекции Shapes и все. Как определить, что мы получили ссылку именно на объект Excel, а не на автофигуру или, ещё хуже, не на файл mp3?
Для того, чтобы получить всю необходимую информацию об OLE-объекте достаточно обратиться к объекту MS Word под названием OLEFormat.
OLEFormat имеет следующие свойства:
Свойство | Описание |
---|---|
Application | Возвращает имя приложения к которому относится объект. В нашем случае вернет «Microsoft Word» |
ClassType | Возвращает или устанавливает тип класса для указанного объекта OLE, фотографии или поля. |
Creator | Возвращает 32-битное целое число, которое указывает на приложение в котором был создан объект. |
DisplayAsIcon | True, если указанный объект отображается в виде значка. Свойство для чтения/записи |
IconIndex | Возвращает или устанавливает индекс иконки, используемой если DisplayAsIcon True. |
IconLabel | Возвращает или устанавливает подпись к иконке OLE-объекта. |
IconName | Возвращает или устанавливает файл программы, в которой хранится икона для объекта OLE. |
IconPath | Возвращает путь к файлу, в котором хранится иконка для объекта OLE |
Label | Возвращает строку, которая используется, чтобы определить часть исходного файла для связывания объектов |
Object | Возвращает объект, который представляет собой объект верхнего уровня интерфейса указанного объекта OLE |
Parent | В озвращает объект, который представляет собой родительский объект указанного объекта OLEFormat |
ProgID | Возвращает программный идентификатор (ProgID) для указанного объекта OLE. |
Теперь, используя эти свойства, попробуем получить всю необходимую нам информацию об OLE-объекте.
Вызовем последовательно свойства ClassType и ProgID:
Идем дальше. Итак, мы определили, что объект представляет собой лист Excel. Как получить доступ к Excel? И причем сделать это так, чтобы можно было наш OLE-объект изменить?
Обратимся к свойству Object. Согласно описанию, свойство должно вернуть нам ссылку на объект верхнего уровня. Следовательно, применительно к нашей ситуации — это будет ссылка на объект Excel. Чтобы убедиться в сказанном, сделаем так:
Ну, а теперь развязка вопроса — используя ссылку на Excel попробуем написать что-нибудь на листе, например, избитую фразу «Hello World!»:
Можете проверить — в ячейку А1 запишется строка. Здесь следует обратить внимание на то, что при записи в Excel мы не использовали свойства ActiveWorkBook, которое обычно предшествует свойству ActiveSheet. Все дело в том, что среди объектов OLE Office нет такого OLE-объекта — вставляется только лист либо диаграмма. По сути диаграмма — это два листа Sheet где на одном находится сам график, а на втором — данные к нему.
Вот таким простым и достаточно понятным способом можно добавлять, изменять и удалять OLE-объекты. Кстати, на досуге можете потренироваться вставлять, активировать, редактировать сразу несколько различных OLE-объектов — принцип работы тот же. Получаете Object и используете его функции.
3. Как работать с документом Word, внедренным в Excel.
Надо сказать, что разработчики в Microsoft весьма неплохо потрудились, чтобы запутать бедных разработчиков :). В начале все просто — как в Word. Есть Shapes у которого в свою очередь есть метод AddOLEObject, с практически теме же параметрами.
Далее, по логике вещей, у Shapes должно быть свойство-объект OLEFormat. Проверяем — действительно есть, но…свойства другие, точнее одно из свойств другое, а большинства вообще нет. Но, мы люди не гордые — будем управляться с тем, что есть:
Свойство | Описание |
---|---|
Application | При использовании без классификатора объектов, это свойство возвращает объект приложения, представляющий приложение Microsoft Excel. При использовании с объектом Qualifier, это свойство возвращает объект приложения, которое использовалось для создания объекта |
Object | Возвращает OLE Automation объект ассоциированный с OLE объектом |
Parent | Возвращает объект, который представляет собой родительский объект указанного объекта OLEFormat |
progID | Возвращает программный идентификатор (ProgID) для указанного объекта OLE. |
Как видите свойств не много. Главное, что осталось свойство Object — вот его мы и попробуем использовать в своих корыстных целях.
За что следует, наверное, сказать спасибо разработчикам Excel, так это за то, что они предусмотрели сразу объект OLEObjects предоставляющий нам в распоряжение все OLE-объекты листа. Используя этот объект мы минуем использование Shapes. Например так:
Мы получаем число OLE-объектов документа.
соответственно даст доступ к первому из OLE-объектов документа, а уж с ним-то нам и предстоит работать. Итак, рассмотрим следующую задачку: необходимо вставить в документ Excel пустой документ Word и написать в нем любую строку.
Чтобы не повторяться в применениях метода — вставим в Excel уже готовый документ Word из файла:
Обратите внимание, в данном случае мы использовали для работы с OLE-объектом не Shapes, а OLEObjects. Попробуйте воспроизвести те же самые действия как в случае работы с Excel из Word, т.е. воспользоваться свойством Object у объекта ObjectFormat. Думаю Вы будите «приятно» удивлены, т.к. в результате запроса имени приложения Вам вернется не Word как ожидалось, а Excel — следовательно работать с OLE-объектом становится невозможно.
Также следует отметить, что прежде, чем приступать к редактированию OLE-объекта, следует его предварительно активировать.
Вот так можно работать с Excel из Word и с Word из Excel и при этом не выходить из Delphi :). Ну, а для чего это использовать — решать Вам. Я только показал Вам возможности работы в Delphi с программами Word и Excel.
Предыдущая статья на тему работы с Excel в Delphi — «Excel в Delphi. Работа с объектом Range (диапазон)«
Следующая статья на тему работы с Excel в Delphi — «Создаем свои контролы на ленте Microsoft Office.«
Книжная полка
Описание Описаны общие подходы к программированию приложений MS Office. Даны программные методы реализации функций MS Excel, MS Word, MS Access и MS Outlook в среде Delphi.
Cамая прогрессивная часть человечества - программисты - вынуждены зачастую заниматься изобретением велосипеда. Почему это происходит? В большинстве случаев, реализуемый программистом алгоритм уже присутствует в компьютере пользователя, и даже неоднократно. Но воспользоваться им из новой программы нет возможности, или нет информации, как это делается. Речь пойдет о Delphi-Word.
Наглядный пример— MS Office. Зачем самому создавать систему генерации отчетов, деловых диаграмм или алгоритм линейной оптимизации. Все уже есть в MS Office, кроме того, есть механизмы использования всего этого богатства, называемые OLE Automation. Только в Help нужно заглянуть… И тут выступает проза жизни. Написать самому оказывается быстрее, чем найти в колоссальной по объему системе помощи нужную информацию. Кроме того, тут даже есть элемент комизма. Нужный вам раздел системы помощи при обычной установке, как правило, не инсталлируется. В общем, кладезь мудрости, засыпанный второстепенной информацией и к тому же, лежащий на дистрибутивном диске. А если очень хочется, или постановка задачи явно требует? Приведенный далее материал— попытка дать «быстрый старт» программисту, на которого взвалили такой выгодный заказ. Речь пойдет о «связке» Delphi-Word, однако, многое из ранее изложенного применимо ко многим другим приложениям Microsoft (Excel, Internet Explorer и т. д.), которые поддерживают OLE Automation.
Установка Delphi для работы с Word
Для того чтобы из Delphi можно было обращаться к методам и свойствам, предоставляемым Word (используя раннее связывание OLE Automation), необходимо установить библиотеку типов Word. Библиотека типов объявляет в стандартизированном виде все методы и свойства Automation Server, которые могут быть использованы любым совместимым средством программирования, включая Delphi. Для того чтобы использовать в Delphi библиотеку типов Word в меню «Project» -> «Import Type Library» необходимо выбрать файл msword8.olb, находящийся в каталоге Microsoft Office и подкаталоге «Office». При этом будет создан файл «Word_TLB.pas», в котором содержимое библиотеки типов представлено на языке object pascal. Будут созданы также файлы библиотек «Office_TLB.pas» и «VBIDE_TLB.pas», на которые ссылается библиотека типов. Эти файлы необходимо сохранить в каталоге «Imports». Теперь достаточно в секцию «uses» нового модуля добавить «Word_TLB» для работы с Word посредством OLE Automation.
Подробную информацию о предоставляемых приложениями Office методах и свойствах можно найти в файлах vba*.hlp. Учтите только, что по умолчанию они не устанавливаются. Для их установки для каждой программы необходимо явно указать наличие файлов справки по Visual Basic или выполнить полную установку.
Следует отметить также, что в Delphi версии 5 есть стандартные методы для работы в Word. Это модули Word97 и Word2000, которые уже содержат в себе библиотеку типов Word.
Открытие Word через OLE Automation
В библиотеке типов определен касс «CoApplication», который реализует интерфейс с Word-ом. Для создания из своей программы экземпляра Word необходимо вызвать метод «CoApplication.Create». Этот метод возвращает ссылку на интерфейс типа «_Application». Интерфейс «_Application» предоставляет интерфейс «Documents», в котором определены два метода доступа к документам: «Add» и «Open».
Оба эти метода возвращают указатель на интерфейс «_Document». При вызове методам можно передавать параметры «OLEVariant». Многие параметры, передаваемые методам Word, являются необязательными (optional). Необязательные параметры, тем не менее, должны быть включены в обращения к методам, но могут быть определены как неинициализированные (Unassigned), чтобы указать, что они не используются. Для неиспользуемых параметров можно использовать переменную Delphi 4 называемую EmptyParam.
procedure StartWord(var WordApp: _Application; var WordDoc: _Document);
var
SaveChanges: OleVariant;
begin
try
WordApp := CoApplication.Create;
WordDoc := WordApp.Documents.Add(EmptyParam, EmptyParam);
WordApp.Visible := True;
except
if (Assigned(WordApp)) then begin
SaveChanges := wdDoNotSaveChanges;
WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);
end;
end;
Как подключиться к загруженной копии Word
Для подключения к исполняемой копии Word можно использовать команду «GetActiveOleObject». Она возвращает переменную с именем «IDispatch», содержащую указатель на работающее приложение Word. После этого у него можно с помощью «QueryInterface» запросить указатель на объект «_Application». GetActiveOleObject генерирует исключение, если запрашиваемый объект не существует в Running Object Table (ROT). Поэтому вызов его необходимо делать внутри блока «try..except».
procedure StartWord(var WordApp: _Application);
var
SaveChanges: OleVariant;
begin
try
GetActiveOleObject('Word.Application').QueryInterface(_Application, WordApp);
except
WordApp := nil;
end
if (UnAssigned(WordApp)) then
try
WordApp := CoApplication.Create;
WordApp.Visible := True;
except
if (Assigned(WordApp)) then begin
SaveChanges := wdDoNotSaveChanges;
WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);
end;
end;
end;
Получение информации из Word
Если кто-то не помнит — Word когда-то был текстовым процессором, поэтому из уважения к его истории в нем эти функции все еще присутствуют. Информацию из Word можно получить через интерфейс «IdataObject». Для получения указателя на этот интерфейс необходимо использовать функцию «QueryInterface».
Документы Word поддерживают стандартные форматы CF_TEXT и CF_METAFILEPICT так же как ряд других специфических форматов, включая RTF и structured storage. Для стандартных форматов используются константы значений переменной «cfFormat», но для других форматов нужно делать запрос, используя функцию «EnumFormatEtc». Эта функция возвратит список обеспечиваемых форматов. Требуемый формат из этого списка затем передается функции «GetData» интерфейса «IDataObject». Значение cfFormat для одинаковых форматов может различаться на разных компьютерах, поэтому всегда должно находиться с помощью функции «EnumFormatEtc». Для подробной информации относительно методов интерфейса «IdataObject» можно обратиться к файлам помощи по программированию в Win32.
function GetRTFFormat(DataObject: IDataObject; var RTFFormat: TFormatEtc):
Boolean;
var
Formats: IEnumFORMATETC;
TempFormat: TFormatEtc;
cfRTF: LongWord;
Found: Boolean;
begin
try
OleCheck(DataObject.EnumFormatEtc(DATADIR_GET, Formats));
cfRTF := RegisterClipboardFormat('Rich Text Format');
Found := False;
while (not Found) and (Formats.Next(1, TempFormat, nil) = S_OK) do
if (TempFormat.cfFormat = cfRTF) then begin
RTFFormat := TempFormat;
Found := True;
end;
Result := Found;
except
Result := False;
end;
end;
procedure GetRTF(WordDoc: _Document);
var
DataObject: IDataObject;
RTFFormat: TFormatEtc;
ReturnData: TStgMedium;
Buffer: PChar;
begin
if (Assigned(WordDoc)) then try
WordDoc.QueryInterface(IDataObject, DataObject);
if GetRTFFormat(DataObject, RTFFormat) then begin
OleCheck(DataObject.GetData(RTFFormat, ReturnData));
//RTF is passed through global memory
Buffer := GlobalLock(ReturnData.hglobal);
//Buffer is a pointer to the RTF text
//Insert code here to handle the RTF text (ie. save it, display it etc.)
GlobalUnlock(ReturnData.hglobal);
end;
except
ShowMessage('Error while getting RTF');
end;
end;
Закрытие Word
Быстрое закрытие без сохранения изменений приведено далее:
var
SaveChanges: OleVariant;
begin
SaveChanges := wdDoNotSaveChanges;
Word.Quit(SaveChanges, EmptyParam, EmptyParam);
Другие возможные варианты для параметра «SaveChanges» — это «wdSaveChanges» (сохранить изменения) и «wdPromptToSaveChanges» (запросить у пользователя необходимость сохранения изменений).
Второй параметр используется для документов не Word формата. Возможные значения «wdOriginalDocumentFormat» (сохранить в исходном формате), «wdPromptUser» (запросить формат у пользователя) или «wdWordDocument» (сохранить как документ Word).
The last parameter should be set to True if you want the document to be routed to the next recipient in line.
Последний параметр должен быть установлен в «True», если вы хотите, чтобы документ был направлен следующему получателю по маршруту.
Создание нового документа
В Word 97 на основании шаблона «Normal»:
Если Вы хотите, чтобы новый документ был основан на шаблоне отличном от «Normal», передайте имя (и путь) шаблона как первый параметр. Если необходимо открыть новый документ как шаблон, передайте «True» для второго параметра.
В Word 2000, метод «Documents.Add» имеет два дополнительных параметра, для типа документа и определения, должен ли документ быть видимым на экране. Внимание! Использование этого метода с Word 97 вызовет исключение. Если необходима совместимость с Word 97, можно использовать метод «Documents.AddOld» из библиотеки Word 2000. Он имеет такие же параметры, как и метод «Add» из Word 97.
Открытие существующего документа
var
FileName: OleVariant;
begin
FileName := 'C:\My Documents\Открываемый файл.doc';
Word.Documents.Open(FileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam);
Необязательные параметры задают следующие свойства:
ReadOnly (третий параметр, по умолчанию False);
PasswordDocument (пятый параметр);
Format (последний параметр дает возможность выбрать конвертор для файла).
В Word 2000 метод «Documents.Open» имеет два дополнительных параметра, для расшифровки и определения,— должен ли документ быть видимым на экране. Как и в случае с методом «Add» при использовании его в Word 97 вызывается исключение, поэтому для совместимости нужно использовать метод «Documents.OpenOld». Он имеет такие же параметры, как и метод «Open» из Word.
Закрытие документа
var
SaveChs: olevariant;
begin
SaveChs := wdSaveChanges;
Word.ActiveDocument.Close(SaveChs, EmptyParam, EmptyParam);
Параметры имеют те же значения, что и в случае метода «Word.Close», с одним неприятным исключением: при передаче значения «wdPromptToSaveChanges» метод останавливается. Поэтому запрос пользователю нужно сделать самостоятельно.
Вставка текста
var
S: Selection;
.
S :=Word.Selection;
S.TypeText(Вставляемый текст');
S.TypeParagraph;
S.TypeParagraph;
S.TypeText('Текст после пустой строки');
Если выставить свойство «Application.Options.ReplaceSelection» в «True», выделенный текст будет заменяться новым.
Форматирование текста
var
S: Selection;
.
S := Word.Selection;
S.Font.Bold := integer(True);
S.TypeText('Be bold!');
S.Font.Bold := integer(False);
S.TypeParagraph;
S.Font.Italic := integer(True);
S.TypeText('Be daring!');
S.Font.Italic := integer(False);
Особых пояснений не требуется, единственно, что следует помнить о свойстве «Application.Options.ReplaceSelection», чтобы новый текст случайно не затер старый.
Переход к закладке по имени
var
What : OLEVariant;
Name : OLEVariant;
begin
What := wdGoToBookmark;
Name := 'Имя закладки';
App.Selection.GoTo_(What, EmptyParam, EmptyParam, Name);
Очень полезный метод. Позволяет превратить Word в генератор писем или отчетов. В заготовке письма проставляем закладки, затем из программы переходим к ним и вставляем нужный текст, например из базы данных. Второй необязательный параметр— счетчик. С помощью него можно организовать переход не по имени, а по номеру закладки.
Создание и доступ к таблицам
Создать таблицу можно следующим образом (проверялось в Word 97):
var
Doc: _Document;
T: Table;
begin
Doc := Word.ActiveDocument;
T := Doc.Tables.Add(Word.Selection.Range, 5, 3);
T.Cell(1, 1).Range.Text := 'January';
T.Cell(1, 2).Range.Text := 'February';
T.Cell(1, 3).Range.Text := 'March';
T.Columns.Width := 72; // in points
Получение содержимого ячейки происходит так:
Caption := T.Cell(1, 3).Range.Text;
Учтите, что работа с таблицами в Word происходит очень медленно, а в Word 2000 чрезвычайно медленно. Поэтому, если в результирующем документе просто нужно быстро поместить таблицу, то можно, например, разместить текст, разделенный запятыми (или другим разделителем), а затем преобразовать его в таблицу. Сделать это можно так:
const
Line1 = 'January,February,March';
Line2 = '31,28,31';
Line3 = '31,59,90';
var
R: Range;
Direction, Separator, Format: OleVariant;
begin
Doc := Word.ActiveDocument;
R := Word.Selection.Range;
Direction := wdCollapseEnd;
R.Collapse(Direction);
R.InsertAfter(Line1);
R.InsertParagraphAfter;
R.InsertAfter(Line2);
R.InsertParagraphAfter;
R.InsertAfter(Line3);
R.InsertParagraphAfter;
Separator := ',';
Format := wdTableFormatGrid1;
R.ConvertToTable(Separator, EmptyParam, EmptyParam,
EmptyParam, Format, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
Заключение
Приведенная ранее информация позволит вам передавать в Word информацию и генерировать или заменять документы. Существует также возможность получать из Word некоторые события для их обработки, но они позволяют только отследить открытие/закрытие документов, самого Word и активацию OCX-элементов. Поэтому не думаю, что вам это пригодится, хотя, если народ пожелает…
Сегодня, в последний рабочий день недели, практически весь день провозился над передачей данных из Delphi в Word. Так как подозрение есть, что работа продолжится то решил кое-какие моменты по работе с Microsoft Word в Delphi запечатлеть и у себя в блоге. Написать такую мини-шпаргалку (тем более, что по Excel уже кое что есть).
Для начала, немного общих моментов по работе с MS Office в Delphi. И первое, что мы сделаем — это создадим объект Word.Application. Создается этот объект абсолютно также, как и объект Excel.Application:
Всё достаточно просто. Далее мы можем работать с объектом следующим образом:
- Создавать документ Word с нуля
- Открыть уже существующий документ и изменить в нем текст для получения необходимой формы документа.
Рассмотрим оба варианта, т.к. оба они имеют как свои плюсы, так и недостатки.
1. Создание документа Microsoft Word в Delphi с нуля.
Чтобы создать новый документ необходимо выполнить метод Add у коллекции Documents, т.е.:
и после этой операции уже начинать работать с документам обращаясь к нему по индексу или имени в коллекции. Также, можно создать новый документ по шаблону (*.dot). Для этого необходимо выполнить тот же метод Add, но с одним входным параметром — путем к файлу-шаблону:
Чтобы получить список всех открытых в данный момент документов Word можно воспользоваться следующим листингом:
Обратите внимание, что нумерация начинается с 1, а не с нуля. Чтобы активировать любой документ из коллекции для работы, необходимо выполнить метод Activate:
где index — номер документа в коллекции.
Теперь можно приступать к записи и чтению документа. Для работы с текстов в документе Word, как и в Excel для работы с ячейками таблицы, определен объект Range. Именно методы этого объекта и дают нам возможность работы с текстом. Для начала рассмотрим работу двух основных методов: InsertBefore и InsertAfter.
Как следует из название — первый метод вставляет текст в начало содержимого Range, а второй — в конец. При этом сам объект Range может содержать как весть документ (Document) так и какую-либо его часть. Например, в следующем листинге я вставлю строку в начало документа и затем методом InsertAfter буду добавлять несколько строк текста в конец документа:
При выполнении этих трех операции Range содержал весь документ.
Если работать со всем документом неудобно, а необходимо, например выделить фрагмент с 50 по 100 символ и работать с ним, то можно воспользоваться функцией Range, которая вернет нам необходимый объект Range:
Это что касается записи текста. Решение обратной задачи — чтения текста из документа ещё проще. Достаточно воспользоваться свойством Text у объекта Range:
Также для чтения документа можно воспользоваться коллекцией документа Words (слова). За слово принимается непрерывный набор символов — цифр и букв, который оканчивается пробелом.
Перечисляются слова документа точно также как и при работе с коллекцией документов, т.е. первое слово имеет индекс 1 последнее — Word.Count.
В данном случае я вывел на экран последнее слово в документе.
Очевидно, что приведенный выше способ работы с документам хорош в случае, когда требуется создать относительно простой документ Word и не требуется лишний раз рассчитывать фрагменты текста, правильно вставлять таблицы и т.д. Если же необходимо работать с документами, которые имеют сложное содержание, например текст в перемежку с рисунками, таблицами, а сам текст выводится различными шрифтами, то, на мой взгляд наиболее удобно использовать второй способ работы с Word в Delphi — просто заменить текст в уже заранее заготовленном документа.
2. Работа с документами Word в Delphi. Открытие готового документа и замена текста.
Чтобы открыть заранее заготовленный документ Word в Delphi достаточно воспользоваться методом Open у коллекции Documents, например так:
Метод 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, остальные — могут отсутствовать. Если же Вам необходимо воспользоваться несколькими параметрами, то их необходимо явно указывать при вызове метода, например:
В этом случае документ открывается в режиме «Только для чтения». При таком способе вызова (с явным указанием аргументов) положение аргументов может быть произвольным.
Что касается последнего аргумента — Format, то он может принимать целочисленные значения (применительно к версиям Microsoft Word 2007 и выше) от 0 до 13. При этом, для того, чтобы открыть «родные» вордовские документы (doc) достаточно использовать значения 0 или 6.
Приведенная выше функция позволяет провести поиск и замену текстового фрагмента во всём документе. Для того, чтобы ограничить возможности пользователя при работе с шаблоном документа я обычно ставлю на необработанный файл пароль, а после обработки — пароль снимаю и сохраняю документ с другим названием в необходимую директорию.
Вот, наверное, самые-самые простые методы работы с Word в Delphi. Кстати, пишу пост и, думаю, что у кого-то из читателей может возникнуть вопрос: причём тут Delphi в Internet и Word в Delphi? :) Честно говоря, приведенный выше фрагменты кода можно использовать для нужд в Internet с натяжкой, например, при автосоставлении небольших отчётов по чему-либо. А вообще, в недалеком будущем, есть в планах поразбираться с Тезаурусом Word и попробовать составить небольшой синонимайзер для собственных нужд — он-то и пригодится нам в Internet :)
Здравствуйте, подскажите, как сделать проверку открыт ли конкретный документ Word ли нет.
Что-то типо, если документ Акт_осмотра_1 открыт, то мы него закрываем.
Если не забыл, то поищите инф-ю про функцию CreateOleObject (в Delphi) и почитайте про COM в Word (в справке Word описана вся модель).
P.S.
Конкретно не скажу, т.к. сейчас не исп-ю Delphi.
Простенький пример
Можно попробовать следить за документом так:
procedure TForm1.Timer1Timer(Sender: TObject); var h: HWND; begin //Ищем окно Winword h:=FindWindow(nil, 'Акт_осмотра_1.doc - Microsoft Word'); Если окно найдено c текущим документом то закрываем Winword if h<>0 then SendMessage(h, WM_CLOSE, 0, 0); end; |
Файл Задачи C .doc
При открытии файла, формируется файл восстановления:
~$дачи С .doc
В воей проге, заменяете первые буквы названия файла на ~$ и делаете проверку.
Будет ли работать на других платформах и с другими версиями Офиса, не знаю, но с Офис 2003 прокатывает.
Файл Задачи C .doc При открытии файла, формируется файл восстановления: ~$дачи С .doc В воей проге, заменяете первые буквы названия файла на ~$ и делаете проверку. Будет ли работать на других платформах и с другими версиями Офиса, не знаю, но с Офис 2003 прокатывает. |
Что-то я ниче не поняла)))
А предыдущий код, мне понравился, все понятно, только не работает. (
Все, разобралась с кодом, только теперь другая проблема.
У меня имя файла формируется из нескольких Edit'ов, я пыталась засунуть это имя в переменную, а переменную уже в FindWindow. Но что-то не получается, подскажите, пожалуйста, как правильно сделать)
У меня имя файла формируется из нескольких Edit'ов, я пыталась засунуть это имя в переменную, а переменную уже в FindWindow. Но что-то не получается, подскажите, пожалуйста, как правильно сделать) |
Попробуйте без разрешения .doc. Если документ только что с формирован и не сохранен то заголовок будет без разрешения.
Или посмотрите на заголовок открытого Winworda с вашим документом и впишите его.
пример:
h:=FindWindow(nil, 'Документ1 - Microsoft Word');
если документ Акт_осмотра_1 открыт, то мы него закрываем. |
А что если документ открыт не Word'ом (еще есть нюанс, если на компе одновременно установленно несколько Word'ов (например 2003 и 2007)) или используется Portable-версия.
Читайте также: