怎么用OLE实现Word中表格合并单元格？很有挑战性的！

[Chimae]

如果实现，分数可以再加！

[pzoon]

UP

[pzoon]

UP

[flc]

噶关注

[7rainbow]

Cell1=Worksheet.OlePropertyGet("Cells",3,5);
Cell2=Worksheet.OlePropertyGet("Cells",3,8);
Range=Worksheet.OlePropertyGet("Range",Cell1,Cell2);
Range.OleFunction("Merge");

[ccrun.com]

在Word中控制表格合并比较麻烦，不如Excel中方便。
试了好大一会才搞定。
以下代码已测试通过，新建一个Word文档,插入一个10*10的表格，保存退出。用程序打开这个Word文档，当程序执行以后将从第2行，第3列开始，合并一个3*3的单元格。

#define wdLine 5
#define wdCharacter 1
#define wdExtend 1

Variant select = WordApp.OlePropertyGet("Selection");

//移动到第3列
select.OleFunction("MoveRight", wdCharacter, 2);
//移动到第2行,注意这里填1
select.OleFunction("MoveDown", wdLine, 1);
//向右选择3例
select.OleFunction("MoveRight", wdCharacter, 3, wdExtend);
//向下选择3行,注意这里填2
select.OleFunction("MoveDown", wdLine, 2, wdExtend);
//执行合并
select.OlePropertyGet("Cells").OleProcedure("Merge");

[Chimae]

不过呢？这个程序还是有Bug的，当表格中其中一个单元格已经输入文本的时候，再合并单元格会出现奇怪现象，大家不妨试试看！