delphi获取word文件的选择内容

Question

在delphi中使用container和wordApplication将文件打开后；
我想获取操作用户的选择信息；
使用语句
  showmessage(wordApplication.selection.text);
d得到我要的结果了；
但每次操作后olecontainer就不能再次操作选择了。请问，怎么能让这种操作连续？

Answer 1

或者；哪个兄弟能给一点操作word文档的代码；
包括获取选择文件并将当前选择文件加入一个编辑框

Answer 2

经过对olecontainer控件的一堆属性进行一顿设置；现在能够连续选择了；
但还是会出现界面跳动的问题（因为在olecontainer失去焦点和得到焦点切换时文档的工具栏的显示问题）。
现在哥们想问的是；
1，怎么能让嵌入ole中的word工具栏一直不显示；
2，怎么能够让嵌入ole中的word文档默认显示格式为“普通视图”，或者“web视图”。

Answer 3

在word中将你想要的操作录成宏,然后编辑宏,要可以知道这些操作怎样写语句.
对于olecontrain一般是:
OleContainer1.OleObject.application.CommandBars['Standard'].visible:= false;

Answer 4

在word中将你想要的操作录成宏,然后编辑宏,要可以知道这些操作怎样写语句.
对于olecontrain一般是按照下面类似的格式:
OleContainer1.OleObject.application.CommandBars['Standard'].visible:= false;//关闭标准工具栏
 OleContainer1.OleObject.Application.dialogs.item(88).show();//打印文档

Answer 5

//视图、页面风格.参阅VBA的View对象
    wapp_Main.ActiveWindow.View.type_:=wdNormalView;