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

Вниз

Подскажите как документе Worda, через OLE перейти на закладку   Найти похожие ветки 

← →
Непоседа   (2003-04-02 15:31) [0]

В документе имеется закладка - pr1.
Код программки:

nit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, Word97, Spin;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
OLE: Variant;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
FileName="c:\doc1.doc";
begin
if VarType(OLE) <> varDispatch then
begin
OLE:=CreateOleObject("Word.Basic");
OLE.AppShow;
OLE.FileOpen(FileName);
OLE.EditGoTo("pr1");
OLE.Insert("ПА");
end else
begin
OLE.FileSaveAs(FileName,0);
OLE.FileClose(2);
OLE:= 0;
end;
end;
end.
На синтаксис не ругается но и на закладку не переходит. "ПА" вставляет в первую позицию текста.

---

← →
Smashich ©   (2003-04-02 15:34) [1]

WordParam:OleVariant;

WordParam:=1;
WordAp.ActiveDocument.Bookmarks.Item(wordParam).Select;

или

WordParam:="имя закладки";
WordAp.ActiveDocument.Bookmarks.Item(wordParam).Select;

---

← →
Smashich ©   (2003-04-02 15:36) [2]

а дальше соотвественно

WordAp.Selection.TypeText(OleVariant(" о как !:)"));

---

← →
Непоседа   (2003-04-02 15:38) [3]

Спасибо! А то я уже как только не пробывал!:)))

---

← →
Непоседа   (2003-04-02 15:44) [4]

Чегото ругается на "WordAp", что это за зверь?

---

← →
Smashich ©   (2003-04-02 16:05) [5]

:) а сам как думаешь?

а OLE что у тя такое?:) че за зверь

---

← →
Непоседа   (2003-04-02 16:42) [6]

OLE-объект для связи с Word-ом.
Я только начал с OLE разбираться в FAQ-е все прочитал, попробывал, но вот многие команды для Word-a не проходят.
Попробывал подставить вместо WordAp OLE ругается, что ActiveDocument не поддерживается.

---

← →
Smashich ©   (2003-04-02 16:45) [7]

вообще я юзаю закладку servers у меня wordap это TWordApplication
а ole обьект нужно вот так создавать
OLE:=CreateOleObject("Word.Application");

---

← →
Непоседа   (2003-04-02 16:52) [8]

Спасибо!!, за терпение моих чайниковских вопросов, заработало как только воспользовался TWordApplication.

А на счет:
OLE:=CreateOleObject("Word.Application");
валятся операторы:

OLE.AppShow;
OLE.FileOpen(FileName);


---

← →
Smashich ©   (2003-04-02 16:55) [9]

>А на счет:
>OLE:=CreateOleObject("Word.Application");
>валятся операторы:
> OLE.AppShow;
> OLE.FileOpen(FileName);


OLE.Visible:=true;
OLE.Documents.Add(...);

---

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

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

Наверх

Память: 0.48 MB
Время: 0.017 c