Как да генерирам документ във формат Word, DelphiSite

Най-четени

Създайте документ, какво следва? Следващата стъпка, разбира се, е да напишете всеки текст директно в документа. Нека създадем функцията SetTextToDoc за това.

Функция SetTextToDoc (text_: string; InsertAfter_: boolean): boolean;

var Rng_: вариант;

Rng _: = W. ActiveDocument. Обхват;

след това Rng_. InsertAfter (text_)

друго Rng_. InsertBefore (text_);

Rng _: = W. ActiveDocument. Обхват;

след това Rng_. InsertAfter (text_)

друго Rng_. InsertBefore (text_);

след това W. ActiveDocument. Обхват. InsertAfter (text_)

иначе W. ActiveDocument. Обхват. InsertBefore (text_);

Функция SaveDocAs (файл_: низ): булев;

---