Во-первых, в разделе uses нужно подключить модуль ComObj.
Во-вторых объявляем переменную типа variant для обращения к MS Word.
Инициализацию и запуск MS Word иллюстрирует следующий пример:
uses ComObj; ... procedure RunWord; var Word: variant; begin try Word := CreateOleObject('Word.Application'); except ShowMessage('Не могу запустить MS Word'); end; end;
// отображение на экране MsWord.Visible := True;
// создание нового документа MsWord.Documents.Add; // открытие существующего документа MsWord.Documents.Open('c:test.doc');
Добавление (запись) текста в документ MS Word
Все покажу на примере:
Word.ion.TypeText(Text:=MyText); // где MyText - переменная, хранящая текст для записи в документ.
Word.ion.TypeParagraph; // добавление нового абзаца
Стоит заметить, что запись текста производится в место позиционирования курсора. По умолчанию это начало документа.
Чтение текста из документа MS Word
С помощью команды Word.ion мы можем считать символ стоящий после
курсора, либо, если выполнено выделение, выделенный фрагмент текста.
MyText:= Word.ion; // где MyText - переменная для хранения считанных данных
Для передвижения курсора по тексту документа можно использовать следующий набор команд:
Word.ion.MoveRight; // передвинуть курсор на символ вправо
Word.ion.MoveLeft; // передвинуть курсор на символ влево
Word.ion.MoveUp; // на строку вверх
Word.ion.MoveDown; // на строку вниз
Выход (закрытие) MS Word
Если есть открытый активный документ, то закрытие документа осуществляется следующим образом:
// выход без сохранения MsWord.ActiveDocument.Close(Saves:=0);
