求教VBA高手：表格前的标题如何得到？(50分)

一个word文挡，有十个表，每个表前都有一个标题，代表表名，我现在能得到每个表格对象
，(WordDocument.Tables.items(i))现在想连表格前得标题也得到？怎么办呢？
word文挡格式
A表名
表
B表名
表
..
..

下面的代码可以，他假定你已经连接了word并打开了文档，读取第一个表格上面的标题
var tmp,cnt,ext:OleVariant;

begin
tmp:=wdline;
cnt:=1;
ext:=wdMove;
self.WordApplication.ActiveDocument.Tables.Item(cnt).Select;
self.WordApplication.Selection.MoveUp(tmp,cnt,ext);
ext:=wdMove;
self.WordApplication.Selection.EndKey(tmp,ext);
ext:=wdExtend;
self.WordApplication.Selection.HomeKey(tmp,ext);
self.WordApplication.Selection.Copy;
edit1.PasteFromClipboard;
end;

thank you 按照你得方法可行,分是你得了：但美中不足得是，每个表格上面的标题都有个标题，表名字都属于标题三，所以连标题三得标题也得到了，能否去掉？如得到得是：
”1.1.1 野外调查路线表“，就是把前边标题去掉成：“野外调查路线表”这个当然能在delphi中实现，只是字符串操作，我请教得是得到标题三，又如何得到呢，在VBA中？

看不明白，你在word中用手工课到你想要的，录制成宏，分析一下就行了

TO WFZHA:
录制宏学了下，怎么我录制不出象你那个MoveUp(tmp,cnt,ext);
EndKey(tmp,ext);
得操作，录制得时候有时候不允许操作，能告诉我怎么录制得我提问得宏么，用
录制宏会看到好多VBA代码，老兄？教下？

endkey是通过热键（ctrl+end）录制的,moveup是用向上移动的箭头，都是键盘操作