怎样编程操纵word,获取菜单位置，执行菜单命令？(50分)

我想做一个Word教学程序，给定一个例题，实时演示操作WORD完成例子的教学，我可以<br>控制对文档的各种操作，但不能控制菜单（准确地说不能确定某项菜单的座标）请高手指教？[?][!][!] [!]

每个菜单命令，都有可调用的脚本命令。<br>用脚本在Word 中能获得各控件的 Handle 吗？如果能，应该行。<br>是仅用Word的脚本做的吗，如果有另一个程序来控制Word 应该好办。

找找录制方面的软件吧。<br><br>Word还用教？：）

我就是想用另一个程序来控制WORD，请问有办法获得菜单对象吗？我利用COM技术能<br>获得WORD的内部对象如文档段落等对象，但找不到MENU对象？

&nbsp; &nbsp;以下程序在Word 2000的“文件”菜单前添加“Custom”菜单，<br>并在其下添加“Import”菜单项。<br>&nbsp; &nbsp; 请仔细研究，我已经调试通过。<br><br>uses ...,ComObj;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; WordApp,<br>&nbsp; myMenuBar,<br>&nbsp; newMenu,<br>&nbsp; ctrl1:OleVariant;<br>begin<br>&nbsp; WordApp &nbsp; :=CreateOleObject('Word.application');<br>&nbsp; WordApp.visible:=true;<br>&nbsp; myMenuBar :=WordApp.CommandBars.ActiveMenuBar;<br>&nbsp; newMenu &nbsp; := myMenuBar.Controls.Add(10,1,1,1,true);<br>&nbsp; newMenu.Caption := 'Custom';<br>&nbsp; ctrl1 := newMenu.CommandBar.Controls.Add(1,1,0,1,false);<br>&nbsp; ctrl1.Caption &nbsp; &nbsp; := 'Import';<br>&nbsp; ctrl1.TooltipText := 'Import';<br>&nbsp; ctrl1.Style &nbsp; &nbsp; &nbsp; := 2;<br>end;<br>

接受答案了.