Работа с Word

← →
Piter © (2004-05-14 23:57) [0]

Никогда вот не работал из дельфи с вордом. Задача в том, чтобы на основе данных генерировать текст (это не проблема), а потом открыть Word и туда этот текст в новый документ вставить, где быстро про это можно почитать? Толковую бы документацию, желательно показательные примеры, чтобы сразу уяснить. Не профессионально, а так, по быстрому.

← →
Иксик © (2004-05-15 10:02) [1]

var WordApp, WordDoc, Range: Variant; begin WordApp:=CreateOleObject("Word.Application"); WordApp.Visible := True; WordDoc:=WordApp.Documents.Add; Range:=WordDoc.Range; Range.Font.Size:=12; Range.Font.Name:="Times New Roman"; Range.InsertAfter("Hi Piter"); end;

Например

← →
Piter © (2004-05-15 13:23) [2]

Много вопросов:

Как делать разные стили? Например, если вывести текст, а потом поменять Range.Font.Color - то изменится цвет всего текста.
- Как вывести строчку одним цветом, а потом вывести другую строчку другим цветом?

- как выводить строчки текста, прижатые к правому краю, по центру?

- И самый главный вопрос... Текст документа достаточно сложный, чтобы его описать программно. Можно ли сделать такую фишку - напечатать в Word"е документ вручную и вставить некие ключевые символы. А уже потом из приложения открыть данный документ и вместо символов в документе вставить нужные фразы?

← →
Piter © (2004-05-15 13:53) [3]

Piter (15.05.04 13:23) [2]
- как выводить строчки текста, прижатые к правому краю, по центру?

Сам понял: Range.ParagraphFormat.Alignment:=2;

Но вот только осталась проблема - если изменить параметры Range, то изменится весь текст выведенный "через него".

И самое главное - хотелось бы узнать ответ на:

"Можно ли сделать такую фишку - напечатать в Word"е документ вручную и вставить некие ключевые символы. А уже потом из приложения открыть данный документ и вместо символов в документе вставить нужные фразы?"

← →
Иксик © (2004-05-15 14:12) [4]

> Но вот только осталась проблема - если изменить параметры
> Range, то изменится весь текст выведенный "через него".

Range(a,b) - от символа номер "a" до символа номер "b"

← →
Иксик © (2004-05-15 14:23) [5]

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

Range(a,b).Select;
Range(a,b).Cut;
Range(a,b).Copy;
Range(a,b).Paste;

> "Можно ли сделать такую фишку - напечатать в Word"е документ
> вручную и вставить некие ключевые символы. А уже потом из
> приложения открыть данный документ и вместо символов в документе
> вставить нужные фразы?"

Range:=WordDoc.Range; Range.find.execute("FindText", False, False, True, False, False, True, $00000001, False, "ReplaceText", $00000002);

Иксик, спасибо тебе

Не за что :) Всегда рад!

Работа с Word Найти похожие ветки