,
//Получаем данные из файла Word
ПРОЦЕДУРА getWordStr;
вар WordApp: TWordapplication;
WordDoc: TWordDocument;
DocInx, oFileName, CfCversions, oReadOnly, AddToRctFiles, PswDocument,
PswTemplate, oRevert, wpswDocument, WPswTemplate, oFormat: OleVariant;
я, iRow, iCol: целое число;
мояЯчейка:Ячейка;
моястрока:строка;
начинать
memo1.Линии.Очистить;
// ===== Создать объект =====
если не назначено (WordApp), то
начинать
WordApp:= TWordApplication.Create(ноль);
WordApp.Visible := ложь;
конец;
если не назначено (WordDoc), то
WordDoc:= TWordDocument.Create(ноль);
пытаться
Докинкс:=1;
oFileName := 'd:/test.doc';
oReadOnly:=истина;
CfCversions: = EmptyParam;
AddToRctFiles:= EmptyParam;
PswDocument:= ПустойПарам;
PswTemplate:= EmptyParam;
oRevert:= EmptyParam;
WPswDocument:= EmptyParam;
WPswTemplate:= EmptyParam;
oFormat:= EmptyParam;
// ===== Открыть файл =====
WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,
PswDocument, PswTemplate, oRevert, WPswDocument, WPswTemplate, oFormat);
// ===== Связанные файлы =====
WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));
//Метод (1): Получить символьное содержимое всего текста, включая таблицы
s := WordDoc.Range.text;
//Метод (2): Берем 1-4 символа, включая таблицы
myRange:=WordDoc.Range;
мойДиапазон.Начало:=0;
мойДиапазон.Конец_ :=4;
окончательно
если Назначено(WordDoc), то // ===== Закрываем файл =====
начинать
WordDoc.Закрыть;
WordDoc.Отключить;
WordDoc.Уничтожить;
WordDoc := ноль;
конец;
если назначено(WordApp), то // ===== Закрыть Word =====
начинать
WordApp.Выйти;
WordApp.Отключить;
WordApp.Уничтожить;
WordApp := ноль;
конец;
конец;
конец;