3コメント2KB

デルファイ＋ＯＬＥ

■ このスレッドは過去ログ倉庫に格納されています

0001ｐｕｋｉ

NGNG

デルファイからＷｏｒｄ９７をよびだそうとしているのですが
以下のコードなんですが

procedure TForm1.Button1Click(Sender: TObject);
var
obj_ole : olevariant;
begin
//変数初期化
obj_ole := 'c:\test.doc';
//Wordｵﾌﾞｼﾞｪｸﾄｲﾝｽﾀﾝｼﾝｸﾞ
Obj_Word2 := TWordApplication.Create(form1);
//FileOpen
Obj_Word2.Documents.Open(obj_ole＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀
EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam);

Obj_Word2.ActiveDocument.Bookmarks('氏名').Range.InsertAfter('田中');
end;
最後の一行がコンパイルがとおらないのです。
test.docに氏名というブックマークを貼り付けてあるところに
任意の文字（ＤＢから取得）ということがやりたいのですが
よろしくおねがいたします

0002D使い

NGNG

一応コンパイルは通ったけど、Word使ったことないので、これでいいかどうかは？？？
デフォルトプロパティ（だったか？）は使わないのが吉。

procedure TForm1.Button1Click(Sender: TObject);
var
obj_ole : olevariant;
Obj_Word2: TWordApplication;
str: OleVariant;
begin
//変数初期化
obj_ole := 'c:\test.doc';
//Wordｵﾌﾞｼﾞｪｸﾄｲﾝｽﾀﾝｼﾝｸﾞ
Obj_Word2 := TWordApplication.Create(form1);
//FileOpen
Obj_Word2.Documents.Open(obj_ole＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀
EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam ＠｀EmptyParam);

//Obj_Word2.ActiveDocument.Bookmarks('氏名').Range.InsertAfter('田中');
str := '氏名';
Obj_Word2.ActiveDocument.Bookmarks.Item(str).Range.InsertAfter('田中');
end;

0003ＰＵＫＩ

NGNG

感謝！
これから出勤なんでためしてみます

■ このスレッドは過去ログ倉庫に格納されています