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-документ таблице в ячейке, где находится метка

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

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

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

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

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