Delphi控制word的一个小问题(200分)

我在Delphi中用ole创建了一个对象如下；
OleContainer1.CreateObjectFromFile(FileNameDir,true);
{创建oLE目标，将目标联接进来}
OleContainer1.DoVerb(-1);
{产生目标对象}
worddoc:=OleContainer1.OleObject;

{得到当前的激活文档}

WordApp:=WordDoc.Application;

用word录制了一个宏，作用是选择全部内容，并复制到剪贴板上，请各位帮忙，将她翻译成
delphi语言控制。
Sub Macro4()
'
' Macro4 Macro
' 宏在 02-3-6 由 文电处丁美玲 录制
'
Selection.WholeStory
Selection.Copy
End Sub

...
> {产生目标对象}
> worddoc:=OleContainer1.OleObject;
> {得到当前的激活文档}
> WordApp:= WordDoc.Application;
wordApp.Selection.WholeStory;
wordApp.Selection.Copy;

拣到死鸡了！ 哈哈。

我对自动化控制编程很感兴趣,可否交流一下.
qq;106996131
e_mail:zhb_mrb@163.com

补充一下，你的代码写在菜单里，不要放在button里，否则失去焦点时很怪异