| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Mozart_mcs ©   (2005-06-22 11:58:00) 


 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 страницы, с разбиением на разделы..

---

GanibalLector   (2005-06-24 01:19:00) [1]

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

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;


---

Mozart   (2005-06-23 18:30:00) [2]

и все таки как произвести переход к закладке??
сам докапался, что следующим образом можно проверить закладки на существование:

for i:=1 to w1.ActiveDocument.Bookmarks.Count do
begin
ik:=i;
if w1.ActiveDocument.Bookmarks.Item(ik).Name=vr then
begin

тут нужно организовать переход что ли.....

end;
end;

---

YurikGL   (2005-06-23 18:01:00) [3]

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

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

---

Mozart   (2005-06-23 17:45:00) [4]

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

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

---

YurikGL   (2005-06-22 16:00:00) [5]

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

---

Наверх