OleContainerでWordの使用

KUMA 2005-07-06 03:45:19 No: 16194

お世話になります。
OleContainerを使ってワードの操作を行っているのですが、
OleContainerのワード文書を使用できる状態から別のオブジェクトに移り、
再度ワード文書に戻ろうとすると戻る事ができません。
ボタン等を用意してDoverbイベントを呼べば再度ワードは使用可能になるのですが、それだと操作が煩わしく感じてしまいます。
ワードを呼び出した後にOleContainerからフォーカスが離れても、ワードに戻ってきて使用できる状態にする事はできないのでしょうか？

//ワード表示するところを記述しておきます
procedure TForm1.Button1Click(Sender: TObject);
var
Path : String; //表示するワード文書
begin
Path := '表示するワードのパスをセット';
OleContainer1.CreateObjectFromFile(Path,False);
OleContainer1.DoVerb(ovOpen);
end;