Лабораторная работа №4

Симоненко В.С.

ИТ 13-2

Лабораторная работа №4

Автоматизация Microsoft Word: работа с документом

Цель: получить навыки разработки контроллеров автоматизации Microsoft Word.

Индивидуальное задание

Пусть имеется doc-файл, содержащий более одного абзаца текста (файл сформировать самостоятельно). На основе использования COM-технологии разработать программное приложение, которое выполняет обработку содержащейся в файле информации согласно индивидуальному заданию, приведенному в таблице 1. Результаты выполнения индивидуального задания необходимо добавить в исходный doc-файл.

16	Напечатать самое длинное слово

Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,ComObj, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

var App,Rng,Sel: variant;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

App:=CreateOleObject('Word.Application');

App.Visible:=Visible;

end;

procedure TForm1.Button1Click(Sender: TObject);

var num,i,len,max,x,j: integer; word:string;

begin

App.Documents.Open('D:\1.docx');

num:=App.ActiveDocument.Words.Count;

max:=0;

for i:=1 to num-1 do begin

word:= App.ActiveDocument.Words.Item(i);

word:=trim(word);

len:=Length(word);

if len>max then begin

max:=len;

x:=i;

end;

end;

Rng:=App.ActiveDocument.Paragraphs.Item(1).Range;

App.ActiveDocument.Paragraphs.Add;

App.Visible:=Visible;

Rng.InsertAfter(App.ActiveDocument.Words.Item(x));

end;

end.

Результат выполнения программы:

1)Документ Microsoft Word

2) Выполнение программы:

Вывод: получил навыки разработки контроллеров автоматизации Microsoft Word.