如何改写Word的“打开...”菜单（用OleVariant） ( 积分: 100 )

procedure TForm1.BtnWordClick(Sender: TObject);
var
OleWord: OleVariant;
begin
try
OleWord:= GetActiveOleObject('Word.Application');
except
OleWord:= CreateOleObject('Word.Application');
end;
OleWord.Visible:=True;
end;
小弟只做到了这一步，接下来想改写Word的“打开...”菜单，
比如在WORD中点击“打开...”菜单时固定其文件路径，如只
能打开D盘中的文件。（并不是在自己的程序界面中用个按钮
来打开文件）我自己写了一个事件但是不行。我也看荷塘新月
兄的问题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2553923
但是小弟菜鸟了个，看得不太明白，还请各位大哥帮帮忙。

procedure TForm1.BtnWordClick(Sender: TObject);
var
OleWord: OleVariant;
begin
try
OleWord:= GetActiveOleObject('Word.Application');
except
OleWord:= CreateOleObject('Word.Application');
end;
OleWord.Visible:=True;
end;
小弟只做到了这一步，接下来想改写Word的“打开...”菜单，
比如在WORD中点击“打开...”菜单时固定其文件路径，如只
能打开D盘中的文件。（并不是在自己的程序界面中用个按钮
来打开文件）我自己写了一个事件但是不行。我也看荷塘新月
兄的问题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2553923
但是小弟菜鸟了个，看得不太明白，还请各位大哥帮帮忙。