Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Вниз

Подскажите как документе 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.008 c
1-44214
saha
2003-04-01 11:20
2003.04.14
TEdit


1-44180
dim-
2003-04-03 10:18
2003.04.14
Прозрачная форма


14-44405
Style
2003-03-21 08:57
2003.04.14
---|Ветка была без названия|---


14-44403
Delphin1
2003-03-27 10:16
2003.04.14
CODERUSH


6-44322
ККВ
2003-02-20 10:41
2003.04.14
Клиент для Novell





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский