Вторник, 21.11.2017, 09:18
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Word

5. Рисунки и другие объекты MS Word

Используя доступ к Word.Application из приложений Delphi, можно вставлять в текст документа записи, рисунки и другие объекты. Сложные документы в формате Word обычно могут содержать не только таблицы или текст, но также записи, линии и фигуры, объекты WordArt, рисунки, графику и многое другое.

Все эти объекты можно разделить на две группы: те, которые являются внутренними объектами Word, и внешние объекты, создаваемые внешними по отношению к самому Word серверами OLE. Все объекты, рассмотренные в 1-4 части статьи, - это внутренние объекты.

Кто программирует в Visual Basic в среде Word и в Delphi, тот может дальше сам развивать тему "Суперфункций". Все просто. Объекты, коллекции и методы, которые работают в среде Word, переносятся почти без изменений в среду Delphi. Главное здесь - применить немного изобретательности и находчивости. Можно использовать палитру компонентов Servers, которая есть в Delphi, начиная с 5-й версии. Выбор между готовыми компонентами и работой "напрямую" с Word.Application зависит от профессионализма, сложности поставленных задач, отпущенного времени и главное - от вкусов и стиля программирования. Это индивидуально для каждого, кто занимается разработкой сложных и не очень сложных приложений на Delphi и других языках программирования. Я свой выбор остановил на работе с Word.Application, так как это дает больше гибкости и возможностей при решении сложных и нестандартных задач

Рассмотрим еще несколько необходимых внутренних и использование некоторых внешних объектов, их создание и управление из приложений на Delphi.

Одним из часто используемых объектов является Textbox. Для его создания используем коллекцию Shapes(формы) и ее метод AddTextbox. Объект коллекции Shapes имеет атрибут - имя, его можно считать, можно изменить и обращаться к объекту не только через индекс, но и через имя. В функцию создания объекта Textbox передаем в качестве аргументов координаты и размеры области, а возвращаем имя объекта. Она выглядит следующим образом.

Code:

Function CreateTextBox (Left,Top,Width,Height:real;

var name:string):boolean;

const msoTextOrientationHorizontal=1;

begin

CreateTextBox:=true;

try

name:=W.ActiveDocument.Shapes.AddTextbox

(msoTextOrientationHorizontal,Left,Top,Width,Height).Name;

except

CreateTextBox:=false;

end;

End;

 

 Следующей естественной задачей является запись текста в TextBox. Используем доступ к созданному объекту (Shapes.Item) через индекс(число) или имя(строка). Текст можно записать в свойство Text объекта TextRange. Перед записью текста проверяем тип формы (Shape). Если форма имеет тип TextRange, тогда записываем текст. Смотрите реализацию в виде функции TextToTextBox на Delphi.

Code:

Function TextToTextBox (TextBox:variant;text: string):boolean;

const msoTextBox=17;

begin

TextToTextBox:=true;

try

if w.ActiveDocument.Shapes.Item(TextBox).Type = msoTextBox then

  W.ActiveDocument.Shapes.Item(TextBox).TextFrame.TextRange.Text:=Text

else TextToTextBox:=false;

except

TextToTextBox:=false;

end;

End;

 

 

Объект - форма (Shape) - может иметь тип не только как запись, он может содержать картинку, звук, линию и др. В зависимости от типа формы, процедура ее создания различна, но некоторые поля не зависят от типа. Одним из таких полей является имя формы, которое можно получить или изменить. Создадим две функции для определения имени (индекса) формы и для его изменения.

Code:

Function GetNameIndexShape (NameShape:variant): variant;

begin

try

GetNameIndexShape:=W.ActiveDocument.Shapes.Item(NameShape).Name;

except

GetNameIndexShape:=false;

end;

End;

 

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

Code:

Function SetNewNameShape (NameShape:variant;

NewNameShape:string):string;

begin

try

W.ActiveDocument.Shapes.Item(NameShape).Name:=NewNameShape;

SetNewNameShape:=NewNameShape;

except

SetNewNameShape:='';

end;

End;

 

Здесь можно было бы рассмотреть реализацию функций перемещения, изменения размеров, а также определение положения и размеров формы в документе. Можете сделать это самостоятельно. В Visual Basic для этого используются следующие операторы:

ActiveDocument.Shapes.Item (NameShape).Left = Left

ActiveDocument.Shapes.Item (NameShape).Top = Top

ActiveDocument.Shapes.Item (NameShape).Width = Width

ActiveDocument.Shapes.Item (NameShape).Height = Height

Или наоборот

Left = ActiveDocument.Shapes.Item (NameShape).Left

Top = ActiveDocument.Shapes.Item (NameShape).Top

Width = ActiveDocument.Shapes.Item (NameShape).Width

Height = ActiveDocument.Shapes. Item(NameShape).Height

В документах часто могут использоваться рисованные объекты, например, линии. Для их создания также используем коллекцию Shapes (формы) и ее метод AddTextbox. В функцию создания объекта Line передаем в качестве аргументов начальные и конечные координаты линии, а возвращаем имя объекта. Эта функция выглядит следующим образом:

Code:

Function CreateLine (BeginX,BeginY,EndX,EndY: real;

var name:string):boolean;

begin

CreateLine:=true;

try

name:=W.ActiveDocument.Shapes.AddLine(BeginX,BeginY,EndX,EndY).Name;

except

CreateLine:=false;

end;

End;

 

Для прорисовки сложной фигуры необходимо использовать метод AddPolyline коллекции Shapes. Аргументом этой функции должен быть массив точек (massiv). Реализация на Visual Basic имеет следующий вид:

ActiveDocument.Shapes.AddPolyline (massiv)

Для того, чтобы вставить рисунок из внешнего файла, необходимо использовать метод AddPicture коллекции Shapes, а в качестве аргумента имя файла и координаты. Создадим такую функцию.

Code:

Function CreatePicture(FileName:string;Left,Top: real;

var name:string):boolean;

begin

CreatePicture:=true;

try

name:=W.ActiveDocument.Shapes.AddPicture(FileName).Name;

W.ActiveDocument.Shapes.Item (name).Left:=Left;

W.ActiveDocument.Shapes.Item(name). Top:=Top;

except

CreatePicture:=false;

end;

End;

 

Мы должны иметь возможность не только создать новый объект, но и удалить ранее созданный, например, рисунок или запись. Для этого используется метод Delete коллекции Shapes. Для использования этого в своих приложениях создадим функцию DeleteShape, в качестве аргумента которой будет имя или индекс объекта Shape.

Code:

Function DeleteShape (NameShape:variant): variant;

Begin

DeleteShape:=true;

try

W.ActiveDocument.Shapes.Item (NameShape).Delete;

except

DeleteShape:=false;

end;

End;

 

Внешний объект в документе представляет собой Ole-объект, отображаемый внешней программой, которая является Ole-сервером по отношению к редактору Word. Такими объектами могут быть рисунки (BMP), созданные программой Paint или лист Excel. Внешний объект может отображаться в документе только тогда, когда установлена поддерживающая его программа. Для внедрения внешних объектов в документ используется метод AddOLEObject коллекции Shapes. Например, чтобы получить доступ к объекту в Visual Basic, используется следующий оператор:

Set obb = ActiveDocument.Shapes.AddOLEObject("MSGraph.Chart.8")

В Delphi он выглядит следующим образом:

Var Obb:variant;

Obb:=W.ActiveDocument.Shapes.AddOLEObject("MSGraph.Chart.8");

Где W - Word.Application.

Но чтобы программировать Ole-объект, необходимо знать его поля и методы. Эта информация индивидуальна для каждого объекта и ее рассмотрение - отдельная тема.

На основе созданных нами функций создадим небольшую демонстрационную программу, которая будет создавать объект-запись и объект-линию, а затем удалит их из документа. Как всегда, используем ранее созданные функции, разместим на форме кнопку и процедуре обработки ее нажатия напишем следующий программный текст:

Code:

procedure TForm1.Button1Click (Sender: TObject);

var BoxName_,LineName_:string;

begin

if CreateWord then begin

Messagebox(0,'Word запущен.','',0);

VisibleWord(true);

Messagebox(0,'Word видим.','',0);

If AddDoc then begin

  Messagebox(0,'Документ создан.','',0);

  CreateTextBox(1,1,100,50,BoxName_);

  Messagebox(0,'Создали форму - надпись.','',0);

  Messagebox(0,pchar(GetNameIndexShape(1)) ,

   'Считали имя формы',0);

  BoxName_:=SetNewNameShape(BoxName_,'Новое имя');

  Messagebox(0,pchar(GetNameIndexShape (1)),

   'Изменили имя формы и считываем его снова',0);

  TextToTextBox(BoxName_,'Добавляем текст в TextBox');

  Messagebox(0,'Рисуем линию','',0);

  CreateLine(1,15,300,200,LineName_);

  Messagebox(0,'Удаляем линию','',0);

  DeleteShape(LineName_);

  Messagebox(0,'Удаляем надпись','',0);

  DeleteShape(BoxName_);

  SaveDocAs('c:\Документ, содержащий объекты');

  Messagebox(0,'Текст сохранен','',0);

  CloseDoc;

end;

Messagebox(0,' Текст закрыт','',0);

CloseWord;

end;

end;

 В своей статье я постарался показать основы создания документов Word на основе Word.Application и Delphi. На самом деле возможности здесь таковы, что позволяют использовать редактор Word в качестве генератора отчетов для создания документов любой сложности. Пожалуй, только используя редактор Excel, их можно превзойти. Продолжение будет посвящено программированию документов в Excel из приложений на Delphi.

Исходный текст http://www.delphi.ucoz.org/MSOffice/st1_5.zip

Василий КОРНЯКОВ

Литература: Н. Елманова, С. Трепалин, А.Тенцер "Delphi 6 и технология COM" "Питер" 2002.


 

Категория: MS Word | Добавил: delphi (29.08.2008)
Просмотров: 7169 | Комментарии: 2 | Рейтинг: 5.0/1
Всего комментариев: 2
1  
Статья конечно хорошая, но не помогает в решении следующего вопроса:
Есть файл формата Ms Word (сборник стихов) отформатированный под "печать книжкой". В конце каждой страницы расположена надпись с номером страницы. Есть перечень наименований стихов. Хочу распечатать содержание этого сборника. Вопрос:
Как устанавливаясь на наименование стихотворения определить номер надписи (наименование надписи) номера страницы в этом файле?

2  
Для печати содержания лучше использовать встроенную в Word функцию "Содержание" при соответствующей редакции текста.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22]MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017