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

Вниз

Не могу найти закладку, работаю в 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;

---

← →
GanibalLector ©   (2005-06-24 01:19) [5]

При позднем связывании так :

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;


---

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

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

Наверх

Память: 0.45 MB
Время: 0.01 c