Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c