ввод данных и сохранение информации в файле MS Word ( Delphi )

[BIGGYpo]

Мне поставили задачу. Необходимо сделать программу, в которой пользователь будет вводить свои данные (Ф.И.О). Программа должна вставлять эти данные в текстовый редактор (Скорее всего Word там будет таблица). И все это в Delphi . Как легче это реализовать и может ли Delphi работать с закрытым файлом word?


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

Можно.
Как - зависит от конкретных деталей.
я бы рекомендовал воспользоваться либо шаблоном на RTF (ему можно дать расширение .DOC - никто вообще не заметит подмену),
либо работать с файлом Word'а через OLE автоматизацию (поиском легко найдёте примеры). В последнем случае на том компьютере, где будет работать программа обязательно должен быть установлен MS Word (фактически программа будет скрыто пользоваться его возможностями по открытию-записи-сохранению Word'ских файлов).

[BIGGYpo]

Я решил делать через с подошью ole возникла проблема с подключением кк серверу Word
в вар пишу
var
Application: variant;
на кнопку ставлю
procedure TForm1.Button1Click(Sender: TObject);
begin
Application:= CreateOleObject('Word.Application') ;
end;
а он ругается на CreateOleObject Я бы с радостью пообшялся с человеком знаюшим ole желательно Шаманом !

[Hacker19_90]

а вы вот такое делали?

uses
    ComObj;

Тобишь модуль подключили?
Желательно конечно
Увидеть какую ошибку выдаёт компилятор!

[BIGGYpo]

Спасибо я написал просто иначе
var
Word: variant;

begin
Word:=CreateOleObject('Word.Applica tion');
Word.Visible:=Visible;
Word.Documents.Open('d:\1\ss', ReadOnly:=true)
end;
Только теперь word загружается но говорит что нет такого фаила я уверен на 100% что он есть и я не ошибся в пути
Может быть кто нибудь подскажет delphi работает с определёнными файлами word 97 , или с поддержкой макросов я не пойму
да и ss.doc не проходит ошибка та же ('нет такого фаила')

[Максим_83]

Word.Documents.Open('d:\1\ss.doc', ReadOnly:=true)

Вот тут твоя ошибка.
Опять же у тебя открывается только на чтение, а должна быть возможность записи.
Для твоей задачи не совсем Word подходит если надо в таблицу сохранять данные.
Excel подходит гораздо лучше.

[BIGGYpo]

Сообщение от Максим_83

Word.Documents.Open('d:\1\ss.doc', ReadOnly:=true)

Вот тут твоя ошибка.
Опять же у тебя открывается только на чтение, а должна быть возможность записи.
Для твоей задачи не совсем Word подходит если надо в таблицу сохранять данные.
Excel подходит гораздо лучше.

Извини конечно но если ты не заметил я написал что .doc не меняет ситуацию
а на счет ReadOnly:=true так я пока хочу просто открыть документ

[BIGGYpo]

Интересно пишу по учебнику Василия Корнякова Ms office в Delphi
написано вроде бы правильно но ругается при выполнении на диапазон
"Значение лежит вне допустимого диапазона" остался последний шаг дописать вот код
procedure TForm2.Button1Click(Sender: TObject);
begin
Word:=CreateOleObject('Word.Applica tion');
Word.Visible:=Visible;
Word.Documents.Open('E:\1.docx');
MyRange:=Word.ActiveDocument.Range( '1',20);
MyRange.InsertAfter('îëîëîë')

end;

end.
или может я не то пишу мне нужно вставить текст в определенное место в word документе