Не могу найти закладку, работаю в Word2003...

← →
Mozart_mcs (2005-06-22 11:58) [0]

try winit; \\инициалим MessageBox(handle,"Формирую историю, ждите","Ворд - подключение",0); vr:=Path+"Images\IB.dot"; W1.Documents.Open( vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa ram,EmptyParam,EmptyParam,EmptyParam); vr:=wdStory; w1.Selection.EndKey(vr,EmptyParam); vr:="NUMB_IST"; w1.ActiveDocument.GoTo_( EmptyParam,EmptyParam,EmptyParam,vr); w1.Visible:=true; w1.Disconnect;

Пишет, что закладка не найдена............
Пробовал различные закладки, - т. самое..
Док-шаблон представляет собой 2 страницы, с разбиением на разделы..

← →
YurikGL © (2005-06-22 16:00) [1]

Так может, нет такой закладки? :)
Приведи макрос перехода на эту закладку.
Кстати,
vr:=wdStory;
w1.Selection.EndKey(vr,EmptyParam);
здесь не нужно

← →
Mozart (2005-06-23 17:45) [2]

>Приведи макрос перехода на эту закладку.

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

← →
YurikGL © (2005-06-23 18:01) [3]

http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208

Для того что-бы узнать, как что-то сделать из Delphi во Word-e надо во Word-е зайти в меню сервис/макрос/начать запись... Потом сделать во Word-e то, что надо сделать из Delphi и закончить запись макроса. И наконец сервис/макрос/макросы...выбираем записанный...изменить и смотрим, как он устроен. После этого первод синтаксиса VBA в синтаксис Delphi осуществляется просто и непринужденно.

← →
Mozart (2005-06-23 18:30) [4]

и все таки как произвести переход к закладке??
сам докапался, что следующим образом можно проверить закладки на существование:
for i:=1 to w1.ActiveDocument.Bookmarks.Count do begin ik:=i; if w1.ActiveDocument.Bookmarks.Item(ik).Name=vr then begin тут нужно организовать переход что ли..... end; end;

При позднем связывании так :
procedure TForm1.ZakladkaBLYAClick(Sender: TObject); var WordApp,Doc,BookmarkName,R:Variant; begin WordApp := CreateOleObject("Word.Application"); try WordApp.Visible:=True; WordApp.Documents.Open("C:\2.doc"); Doc:=WordApp.ActiveDocument; if (Doc.Bookmarks.Exists("zk1")) and (Doc.Bookmarks.Exists("zk2")) then begin BookmarkName:="zk1"; R := Doc.Bookmarks.Item(BookmarkName).Range; R.InsertAfter("GanibalLector"); R.Font.Size:=10.5; R.Font.Name:="Bookman Old Style"; R.Font.Bold:=1; R.Font.Italic:=1; // BookmarkName:="zk2"; R := Doc.Bookmarks.Item(BookmarkName).Range; R.InsertAfter("very GOOD boy"); R.Font.Size:=10.5; R.Font.Name:="Bookman Old Style"; R.Font.Bold:=0; R.Font.Italic:=1; end; WordApp.ActiveDocument.Close; WordApp.Quit; finally WordApp:=UnAssigned; end; end;

Не могу найти закладку, работаю в Word2003... Найти похожие ветки