Delphi: работа с MS WORD

Delphi : работа с MS WORD

Предположим, у нас уже открыт файл. Вопросы открытия и сохранения документов уже были в других статьях, так что подробно на этом останавливаться не будем. Просто по ходу дела будет приведено то, чего раньше не встречалось - выход из документа без сохранения изменений. Как-то забыл, извините:)

Текст

Сначала о самом простом - добавлении в документ Word нужной строки текста. Поместим на форму компоненты WordDocument, WordApplicationи WordParagraphFormat с палитры Servers. Нас интересуют в первую очередь свойство Range компонента WordDocument и свойство Selection компонента WordApplication. Классики утверждают, что они являются ссылкой на объекты Range и Selection. Range представляет из себя, проще говоря, кусок текста, это может быть как весь текст документа, так и любая его часть. Его пределы задаются двумя (или меньше) параметрами типа OleVariant.

Например:

var range1, range2, range3, a, b : OleVariant;

...

range1:=WordDocument1.Range;

a:=5;

b:=15;

range2:=WordDocument1.Range(a,b);

range3:=WordDocument1.Range(a);

Первый наш объект включает в себя весь текст документа, у второго мы ограничили пределы 5-м и 15-м символами, третий представляет из себя весь последующий текст документа, начиная с 5-го символа. Объект имеет несколько полезных методов, например, с его помощью можем добавить текст в документ:

range2.InsertAfter('MS Word');

Это мы вставили текст после выделенного Range. Точно также можем вставить текст и перед ним, для этого служит метод InsertBefore(). Текст, заключенный в объекте Range, можем получить так:

WordDocument1.Range(a,b).Text;

Кроме того, с помощью Range можем изменить шрифт в пределах объекта. Пример:

a:=5;

b:=15;

WordDocument1.Range(a,b).Font.Bold:=1;

WordDocument1.Range(a,b).Font.Size:=14;

WordDocument1.Range(a,b).Font.Color:=clRed;

Если хотим отменить выделение жирным шрифтом, присваиваем 0. Аналогично можно сделать шрифт курсивом, подчеркнутым - наберите WordDocument1.Range.Font., и среда сама подскажет, какие могут быть варианты. Методы Select, Cut, Copy и Paste работают как в обычном тексте. С помощью Paste можем на место выбранного Range вставить не только строки, но и рисунок, находящийся в буфере обмена.

WordDocument1.Range(a,b).Select;

WordDocument1.Range(a,b).Cut;

WordDocument1.Range(a,b).Copy;

WordDocument1.Range(a,b).Paste;

С помощью Range можем найти в документе нужную строку. Пусть в тексте содержится слово "picture". Например, нам на его место надо будет вставить рисунок.

vara, b, vstart, vend: OleVariant;

j, ilengy: Integer;

...

ilengy:=Length(WordDocument1.Range.Text);

for j:=0 to ilengy-8 do begin

a:=j;

b:=j+7;

if WordDocument1.Range(a,b).Text='picture' then begin

vstart:=j;

vend:=j+7;

end;

end;

WordDocument1.Range(vstart,vend).Select;

Такая процедура находит и выделяет нужный кусок текста.

Теперь про Selection, представляющий из себя выделенный фрагмент документа. Если выделения нет, это текущая позиция курсора в документе. С его помощью можем вставить что-либо на место выделенного фрагмента, сделать выравнивание, изменить шрифт. Онтакжеимеетметоды InsertAfter() и InsertBefore():

WordApplication1.Selection.InsertAfter("text1");

WordApplication1.Selection.InsertBefore("text2");

Форматирование выделенного текста происходит аналогично Range, например:

WordApplication1.Selection.Font.Bold:=1;

WordApplication1.Selection.Font.Size:=16;

WordApplication1.Selection.Font.Color:=clGreen;

Для выравнивания проще воспользоваться компонентом WordParagraphFormat. Сначала только нужно "подключить" его к выделенному фрагменту текста:

WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);

WordParagraphFormat1.Alignment:=wdAlignParagraphCenter;

Значения его свойства Alignment может принимать значения wdAlignParagraphCenter, wdAlignParagraphLeft, wdAlignParagraphRight, смысл которых очевиден. Имеются и методы Cut, Copy и Paste, которые в пояснениях вряд ли нуждаются:

WordApplication1.Selection.Cut;

WordApplication1.Selection.Copy;

WordApplication1.Selection.Paste;

УбираемвыделениеспомощьюметодаCollapse. При этом необходимо указать, в какую сторону сместится курсор, будет ли он до ранее выделенного фрагмента или после:

var vcol: OleVariant;

...

vcol:=wdCollapseStart;

WordApplication1.Selection.Collapse(vcol);

При этом выделение пропадет, а курсор займет позицию перед фрагментом текста. Если присвоить переменной значение wdCollapseEnd, то курсор переместится назад. Можно просто поставить в скобках "пустышку":

WordApplication1.Selection.Collapse(EmptyParam);

Тогда свертывание выделения производится по умолчанию, к началу выделенного текста.

Рисунки

Логично было бы предположить, что рисунки документа будут представлять из себя коллекцию, аналогичную таблицам, и мы, обратившись к конкретной картинке, сможем менять ее свойства - обтекание, размер и т.д. Однако ничего подобного в WordDocument не обнаружи

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать