如何对复合表格（表格中嵌套表格）进行操作？

河西郎 2017-04-23 01:07:37

问题描述：
1、有两个数据表（通过关键字段实现 master – detail关系），想将数据表的相关数据输出为如下word文档：

2、实现的方式有两种：
a) 直接通过代码实现（难度比较大，复杂）；
b) 直接编辑一个word文档（模板），格式设定为最终希望输出的格式（见下图），然后直接读写数据实现，目前采用该方式处理

3、现在遇到以下几个问题：
a) 表格数量问题
通过以下语句获取上图所示word文档（模板）中的表格数量时，经调试跟踪，iTableCount返回值为 2，而非 3，不知何故？
int iTableCount = vDoc.OleFunction("Range").OlePropertyGet("Tables").OlePropertyGet("Count") ;
b) 在word文档（模板）中的复合表格（表格中嵌套表格）中，如何定位期望操作的表格？
通过以下语句希望定位操作表格2，实际以下语句未必实现预期目的，为何？
vTable = vDoc.OleFunction("Range").OlePropertyGet("Tables").OleFunction("Item", 2);
c) 在word文档（模板）中的复合表格（表格中嵌套表格）中，如何定位表格1的表头行，进而在其下方增加一行，实现数据写入？
d) 写入到word文档（模板）中的复合表格（表格中嵌套表格）的表格1的表头行下方的行数（比如通过InsertRowsBelow实现）不确定，如何知道该页文档表格1最后一行是该表格的第几行？
e) 如何对word文档（模板）中位于第一页的表格1最后一列进行合并单元格操作？
f) 上述 a） - e）实现后，如何将表格1及其中嵌套的表格2、表格3一起进行拷贝，进而在word文档（模板）生成第二联？

问题有点多，源代码见附件（源码位于： http://download.csdn.net/detail/mywindpursue/9822645）

...全文

1291 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

河西郎 2017-07-27

打赏
举报

ActiveSheet.UsedRange.Find(What:="A") 用 C++Builder应该怎么写？谢谢

phprun 2017-07-05

打赏
举报

引用 5 楼 mywindpursue 的回复:

ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count) 用C++BUILDER 如何改写?

Wb.OlePropertyGet("Sheets").OleFunction("Add");//默认在第一个Sheet的前面插入。 Wb.OlePropertyGet("Sheets").OleProcedure("Add",(VARIANT *)TNoParam(), Wb.OlePropertyGet("Sheets",1));//默认在第一个Sheet的后面插入。

phprun 2017-07-05

打赏
举报

河西郎 2017-05-31

打赏
举报

ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
用C++BUILDER 如何改写?

ooolinux 2017-05-26

打赏
举报

引用 3 楼 mywindpursue 的回复:

[quote=引用 2 楼 dante100 的回复:] 输出文件非要用WORD？EXCEL不好吗? http://blog.csdn.net/lcfeng1982/article/details/8124615

没错，已经调整思路，采用Excel输出，实现过程比较简单但是遇到了一个问题，下面的代码 ActiveSheet.HPageBreaks(1).Location.Row - 1 转换为 int iPageRow = vSheet.PG("HPageBreaks" , 1 ).PG("Location").PG("Row") - 1 ; 运行总是出错，不知道为什么？[/quote] 可能有些字符串要强转为WideString。

河西郎 2017-05-26

打赏
举报

引用 2 楼 dante100 的回复:

输出文件非要用WORD？EXCEL不好吗? http://blog.csdn.net/lcfeng1982/article/details/8124615

dante100 2017-05-16

打赏
举报

输出文件非要用WORD？EXCEL不好吗? http://blog.csdn.net/lcfeng1982/article/details/8124615

河西郎 2017-05-09

打赏
举报

下面的代码如何改写为C++Builder环境下的语句怎么实现？

Documents.Add
ActiveDocument.Tables.Add Selection.Range, _
    3, 3, wdWord9TableBehavior, wdAutoFitContent
With ActiveDocument.Tables(1).Range
    .Copy
    .Cells(1).Range.Text = .Cells(1).NestingLevel
    .Cells(5).Range.PasteAsNestedTable
    With .Cells(5).Tables(1).Range
        .Cells(1).Range.Text = .Cells(1).NestingLevel
        .Cells(5).Range.PasteAsNestedTable
        With .Cells(5).Tables(1).Range
            .Cells(1).Range.Text = _
                .Cells(1).NestingLevel
        End With
    End With
End With