TX TextControl如何遍历表中的每个单元格

时间:2014-04-25 07:44:35

标签: vb6 txtextcontrol

我有一个word文档,其中包含一些文本和表格。

我在TX TextControl中加载此文档。

我想遍历TX TextControl中的每个单元格并提取每个单元格的内容,并将它们以RTF格式保存在数据库中。

如何轻松遍历表格中的每个单元格?

我已经开发了一个解决方案,但是这段代码有时也会提取单元格边框,这会弄乱一切。

以下是代码段:

txImportFile.SelStart = txImportFile.TableCellStart(CurTableID, RowNum, 2) - 1
txImportFile.SelLength = txImportFile.TableCellLength(CurTableID, RowNum, 2)
mtd_question.RTFSelText = txImportFile.RTFSelText
'Code to save textracted text and graphics to DB goes here

我想要注意的是,这张桌子非常大,横跨很多页面。文件平均大小为47页,表格本身约占31页。

TIA

Yogi Yang

0 个答案:

没有答案