Заполнение документа Word по меткам

@tepes666 · Регистрация: 12.08.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте...
Нужно заполнить созданный документ Word'a по меткам.
Использую вот такой код:

Delphi

procedure TForm4.Button5Click(Sender: TObject);
var
WordApp, doc :Variant;
begin
WordApplication1.Connect;
try
WordApp:=CreateOleObject('Word.Application');
doc:=WordApp.Documents.open('c:\123.doc');
WordApp.Selection.GoTo(-1,,,'name');
WordApp.Selection.TypeText(Edit1.Text);
except
end;
end;

Подскажите пожалуйста что дописать чтобы по нажатии кнопки открывался созданный заранее документ с заполненным текстом по меткам...Документ висит в процессах...

@tepes666 · 14.03.2011, 08:48 **[ТС]**

помогите пожалуйста..что никто не знает как открыть созданный документ ворда после добавления в него текста по меткам?

@maxo · 14.03.2011, 14:59

Delphi

uses comobj;
....
 
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, doc:Variant;
begin
try
WordApp:= CreateOleObject('Word.Application');
doc:=WordApp.documents.Open('c:\123.doc');
WordApp.ActiveDocument.SaveAs('c:\123.doc');
Wordapp.Visible:=true;
WordApp.Selection.Goto(-1, unAssigned, unAssigned,'MOVE');
WordApp.Selection.TypeText(Edit1.Text);
 
WordApp.Selection.Goto(-1, unAssigned, unAssigned,'DATE');
WordApp.Selection.TypeText(FormatDateTime ('dddddd', Date));
except
 
end;
 
end;
 
end.

Конечно лучше сохранять его под другим именем, если документ будет как шаблон

@Mawrat · 14.03.2011, 15:42

tepes666, кстати, очень удобно для замены текста в нужных местах использовать такие объекты MS Word, как закладки (коллекция Word.Bookmarks). Для пользователя закладки доступны через главное меню MS Word: Вставка - Закладка...
Благодаря этому механизму, можно производить замену в тексте, который не содержит текстовых меток.

@tepes666 · 15.03.2011, 05:41 **[ТС]**

ыыы спасибо попробую

Добавлено через 10 часов 16 минут
получилось! большое спасибо!

@tepes666 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 35
	14.03.2011, 08:48 [ТС]	2
	помогите пожалуйста..что никто не знает как открыть созданный документ ворда после добавления в него текста по меткам? 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	14.03.2011, 15:42	4
	tepes666, кстати, очень удобно для замены текста в нужных местах использовать такие объекты MS Word, как закладки (коллекция Word.Bookmarks). Для пользователя закладки доступны через главное меню MS Word: Вставка - Закладка... Благодаря этому механизму, можно производить замену в тексте, который не содержит текстовых меток. 1

@tepes666 0 / 0 / 0 Регистрация: 12.08.2010 Сообщений: 35
	15.03.2011, 05:41 [ТС]	5
	ыыы спасибо попробую Добавлено через 10 часов 16 минут получилось! большое спасибо! 0