Открытие документа для дозаписи

[Kasyan666]

Язык программирования - Delphi.

В ниже приведенной функции создается новый документ MS Word, и уже в него производится запись данных. Если, документ с таким именем уже существует, производится его перезапись.

Теперь, собственно, вопрос: с какими параметрами должен быть открыт существующий документ MS Word, чтобы дописать новые данные в его конец?
ИМХО, что-то связанно со значение параметра DocumentType. У меня ему присваивается значение wdNewBlankDocument, для создания нового документа, а что необходимо присвоить для использования старого?

[Казанский]

Я ничё не понимаю в Delphi, но чтобы открыть существующий файл в Ворде, надо использовать метод Open. Этот метод возвращает объект-документ, т.е. вместо
WordDoc := TWordDocument.Create(nil);

надо писать что-то вроде

WordDoc := WordApp.Documents.Open(путь_к_файлу )

[Kasyan666]

Да, чего-то я ступил... Спасибо, получилось действительно, что-то вроде этого.
Но, в новой функции (привожу ниже), новый текст записывается перед старым, а нужно наоборот! Есть ли, какой-нибудь параметр позволяющий на это повлиять, или придется очень тупо и топорно переписывать весь документ?

[Казанский]

Запишите макрорекордером в Ворде следующие действия:

Ctrl+End
ввод текста <Enter>
ввод еще текста

Посмотрите код, станет понятно.

[Kasyan666]

Selection.EndKey Unit:=wdStory
Selection.TypeText Text:="fhfhfhuhj8u7"
Selection.TypeParagraph
Selection.TypeText Text:="duifhieufheuifh"

Хм. И, что это дает?
Я знаю, как вбить текст в Word из Delphi. Я не знаю, как при открытии существующего документа с данными, перейти в его конец.

Есть ли, какой-нибудь параметр открытия в модуле WordXP у Delphi, для постановки курсора в конец открываемого документа?

[Казанский]

Вероятно, так:

      with WordApp.Selection do
        begin
          .EndKey Unit:=wdStory;
          .TypeText Text:="fhfhfhuhj8u7";
          .TypeParagraph;
          .TypeText Text:="duifhieufheuifh"; 
        end;

[Kasyan666]

Спасибо, за подсказку!

В Delphi, это выглядит примерно, как в прилагаемом файле.

[Kasyan666]

Тогда уж, заодно в догонку, кину код чтения Word'а из Delphi!