Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

MS Word   Найти похожие ветки 

 
Kott ©   (2004-04-24 22:40) [0]

Нужно чтоб программа открыла документ в Word"е и в местах закладок заменила текст.
З.Ы. Хотелось бы посмотреть примры екода.


 
panov ©   (2004-04-24 23:25) [1]

Пример есть, но на работе. Если раньше не найдешь, в понедельник дам.


 
Kott ©   (2004-04-27 09:45) [2]

Не нашел... :\


 
panov ©   (2004-04-27 10:30) [3]

procedure GotoBM(WA: TWordApplication;aName: String);
var
 What,Name,Which,Count: OLEVariant;
begin
 What := wdGotoBookMark;
 Name:=aName;
 Which := unAssigned;
 Count := unAssigned;
 WA.Selection.GoTo_(What,Which,Count,Name);
end;
procedure WrStr(WA: TWordApplication;aStr: String);
begin
 WA.Selection.TypeText(aStr);
//  WA.Selection
end;

Пример использования

var
 WA: TWOrdDocument;
begin
 ...
 GotoBM(WA,"zpYear");   //закладка с именем zpYear
 WrStr(WA,IntToStr(seYear.Value)); Замена текста во вставленной в Word-документ таблице в ячейке, где находится метка


 
Курдль ©   (2004-04-27 11:03) [4]


> Нужно чтоб программа открыла документ в Word"е и в местах
> закладок заменила текст.
> З.Ы. Хотелось бы посмотреть примры екода.

А Вы уверены, что это Вам нужно? Я в простых случаях, например, придерживаюсь технологии "слияния". Во первых, это просто, во вторых - юзера обязаны знать Ворд, раз на нем работают, и умело расставлять поля слияния по шаблону. Ну а Ваша роль заключается лишь в правке файла-источника слияния, который может быть как текстовым, так и парадоксовским (в зависимости от того, какие форматы настроены в Ворде).


 
Kott ©   (2004-05-05 16:10) [5]

panov/
Спасибо за пример, но он чет у меня не работает :/

Курдль/
Не уверен...



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
1-1083737382
mr. Faga
2004-05-05 10:09
2004.05.23
Формат RES файлов


14-1082982732
Drakon
2004-04-26 16:32
2004.05.23
Использование нелицензионной версии Delphi


1-1083966366
kiote
2004-05-08 01:46
2004.05.23
RichEdit - гиперссылки


1-1083759506
1nDeX
2004-05-05 16:18
2004.05.23
TJPEGImage To String


3-1082959862
wild_arg
2004-04-26 10:11
2004.05.23
Параметры в хп.