Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как быть? [D4, Win2k]

mor © (2002-04-25 14:22:00)
Здравствуйте!
Жизнь заставила сделать некую программу... Имеется некоторый
юридический документ в ворде 2000, формат которого выверен до
миллиметра и изменениям не подлежит. Нужно, что-бы пользователь
набирал данные, а они вставлялись в поля того
документа. Подскажите, как мне это все смастерить? Глупый, конечно
вопрос, но я не специалист в этой области. Спасибо!

kalinka (2002-05-07 16:22:00) [1]
Я делала так:
Создала в Word"е шаблон документа. Затем, в места, куда надо данные вставлять, написала свои переменные, в начале которых стоит знак @.

Var Template, OrgFileName : OleVariant;
WrdApp, WrdDoc : OleVariant;
.....
WrdApp := CreateOLEObject("Word.Application");
WrdApp.Documents.Add(Template, EmptyParam);
WrdDoc := WrdApp.ActiveDocument;
WrdApp.Visible := False;
......
//Skidka, NDS, Srok_Opl и т.д. - переменные типа String
InDoc(WrdApp, "@Skidka", Skidka);
InDoc(WrdApp, "@NDS", NDS);
InDoc(WrdApp, "@Srok_Opl", Srok_Opl);
.............
WrdDoc.SaveAs(MyFileName);
......

где InDoc - это:

procedure InDoc(Wa: OleVariant; FText, WText : String);
Var FindText, WriteText : OleVariant;
Begin
FindText := FText;
WriteText := Trim(WText);
Wa.Selection.Find.Wrap := wdFindContinue;
Wa.Selection.Find.Execute(FindText, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
If Wa.Selection.Find.Found Then
Begin
Wa.Selection.Font.ColorIndex := wdRed;
If WriteText <> "" Then
Wa.Selection.TypeText(WriteText)
Else Wa.Selection.TypeText(" ");
End;
End;
Вот, в принципе, и всё.

Song (2002-04-25 16:19:00) [2]
Работает.
CreateOLEObject()

SPeller (2002-04-25 16:18:00) [3]
На сколько я знаю Office это надо делать через элементы управления в самом документе - текстовые поля и программировать их там же. Наверно можно как-то через другие программы хуков понаставить тучу или ещё чего-нибудь, но это геморрой полнейший.
Полазь по справке в ворде по VB и посмотри как чего делается.
Если знаешь VB то сильно трудным это не окажется.

PaRL (2002-04-25 16:07:00) [4]
По-моему Delphi не работает с вордом... хотя я не знаток.
> Глупый, конечно
> вопрос
Да нет.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »