Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
或者将New1.doc文挡清空后，再依次选择合并1.doc,2.doc,3.doc表格，其结果可以看得更清楚。
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
看到了，在表后有两个空白行，ole的选择行和删除行的命令？
Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
两个空白行系下列语句作用：
MyWord.TableInsertTable; //插入空表格
可能需要调整
MyWord.LineDown;
MyWord.TableDeleteRow; 语句位置，以删除表后有两个空白行
MyWord.TableInsertTable; //插入空表格
可能需要调整
MyWord.LineDown;
MyWord.TableDeleteRow; 语句位置，以删除表后有两个空白行
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
解决了：
MyWord.EndOfDocument; //将插入点移动到文档结尾
MyWord.TableInsertTable;
MyWord.EditPaste; //将剪贴板内容粘贴到插入点
MyWord.LineDown; //把插入点往下移动1行
MyWord.TableDeleteRow; //删除表格中含插入点的行
//新加入一下两行语句
MyWord.LineUp; //把插入点往上移动1行
MyWord.TableDeleteRow; //删除表格中含插入点的行
MyWord.EndOfDocument; //将插入点移动到文档结尾
MyWord.TableInsertTable;
MyWord.EditPaste; //将剪贴板内容粘贴到插入点
MyWord.LineDown; //把插入点往下移动1行
MyWord.TableDeleteRow; //删除表格中含插入点的行
//新加入一下两行语句
MyWord.LineUp; //把插入点往上移动1行
MyWord.TableDeleteRow; //删除表格中含插入点的行
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
插入表一和表二：
GF HG HG HGG GH
GFHGF HJKHJ HJKHJK HJKHJK KGHJKF
SDFDG TUU TYUTYU TYUTYU TYUT
SGDFHFG YUTTU YUTYU TYUTYU YUTU
HFDGHJDH YTUT TYUTYU YTUTYU YTUTY
1 2 3 4 5
123 123 123 123 123
ertret erterte dgfhgfh gfhfdh gfhfgh
retert erteryt fghfdh dhgdgfh fghfgh
ertet rhgdh hgfhgfh gfhfgh hgfdh
123 123 123 123 123
456 456 456 456 456
xcbcvbcvn gjghj gjkhjkh hjkhjk hjk
456 456 456 456 456
GF HG HG HGG GH
GFHGF HJKHJ HJKHJK HJKHJK KGHJKF
SDFDG TUU TYUTYU TYUTYU TYUT
SGDFHFG YUTTU YUTYU TYUTYU YUTU
HFDGHJDH YTUT TYUTYU YTUTYU YTUTY
1 2 3 4 5
123 123 123 123 123
ertret erterte dgfhgfh gfhfdh gfhfgh
retert erteryt fghfdh dhgdgfh fghfgh
ertet rhgdh hgfhgfh gfhfgh hgfdh
123 123 123 123 123
456 456 456 456 456
xcbcvbcvn gjghj gjkhjkh hjkhjk hjk
456 456 456 456 456
Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
非常好，真是......[
]
不过我想再进一步，就是一次将所有表格选定后，一次性将其合并为一个表格，而不是
逐步选定，那样操作太慢了。
]不过我想再进一步，就是一次将所有表格选定后，一次性将其合并为一个表格，而不是
逐步选定，那样操作太慢了。
L
linsb
Unregistered / Unconfirmed
GUEST, unregistred user!
可以用程序实现，不要人工干预。但各分表文件名要有一定规则。
Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
To linsb
我在程序下方加放了ListView1组件，其目的是想同时显示待合并表格的各种不同路径
及名称，更重要的是想对加入该列表的多项表格同时进行合并操作，这样可不受限于表格
的具体名称及位置，而是通过对ListView1的Items进行合并操作。
有些零碎代码思路:
DocFileName: String ; //字符串变量
。。。。。。
for I := 0 to ListView1.Items.Count -1 do
。。。。。。
DocFileName := ListView1.Items.Item.SubItems.Strings[0] ;
。。。。。。
MyWord.FileOpen(DocFileName) ;
上续想法尚未能实现，我将发送“表格合并2”源码给你，望能解决此同时合并难题!
即：将各待合并表格加入列表后，程序能对其同时选定，复制，按顺序粘贴到插入点并
删除空格行，这样才更具操作方便性。
我在程序下方加放了ListView1组件，其目的是想同时显示待合并表格的各种不同路径
及名称，更重要的是想对加入该列表的多项表格同时进行合并操作，这样可不受限于表格
的具体名称及位置，而是通过对ListView1的Items进行合并操作。
有些零碎代码思路:
DocFileName: String ; //字符串变量
。。。。。。
for I := 0 to ListView1.Items.Count -1 do
。。。。。。
DocFileName := ListView1.Items.Item.SubItems.Strings[0] ;
。。。。。。
MyWord.FileOpen(DocFileName) ;
上续想法尚未能实现，我将发送“表格合并2”源码给你，望能解决此同时合并难题!
即：将各待合并表格加入列表后，程序能对其同时选定，复制，按顺序粘贴到插入点并
删除空格行，这样才更具操作方便性。
Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
To linsb:
将各待合并表格同时加入列表后，如同时加入1.doc,2.doc.3.doc三个表格，执行合并
时无法顺利完成，总是出现服务器运行失败。若单个加入则没有问踢。
将各待合并表格同时加入列表后，如同时加入1.doc,2.doc.3.doc三个表格，执行合并
时无法顺利完成，总是出现服务器运行失败。若单个加入则没有问踢。
Z
zeroes
Unregistered / Unconfirmed
GUEST, unregistred user!
若能实现多表格自动依次合并，效果会更好！[]
]
S
seared2008
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样解决的能给我一个提示吗？