如何在WORD中读出表单元格内容？

Question

主题 发件人          内容                                                        日期
西安市场 [email protected] 西安市场本月销售反馈情况如下：捷达：200  松花江 180             2002-5-8
北京市场 [email protected] 北京市场本月销售反馈情况如下：捷达：298  夏利 150               2002-5-10
                           爱丽舍  98  奥托  178
天津市场 skc2003          天津市场本月销售反馈情况如下：夏利 130  松花江 101  吉利  100 1998-4-8
如果数据是象上面这样，第一行主题 发件人等是标题行，下面是内容行，总共两排单元格。放在WORD的CELL表中由于内容行因为字数过多必须换行，主题和日期都要随之加上回车，怎样读取并在VB中赋给变量？

Answer 1

把表格的内容放在access或者sqlserver等数据库软件得表里面，然后用vb连到数据库就可以读了，没必要老是用word

Answer 2

Set wdApp = Application
    'Word打开的第 1 个文档中第 2 个表格第 3 行第 2 个单元格的内容
    MsgBox wdApp.Documents(1).Tables(2).Rows(3).Cells(2).Range.Text
    ' 或
    MsgBox wdApp.Documents(1).Tables(2).Cell(Row:=3, Column:=2).Range.Text

Answer 3

传给变量
strtemp=wdApp.Documents(1).Tables(2).Cell(Row:=2, Column:=3).Range.Text如果要去掉回车换行strtemp=replace(strtemp,chr(10),"") '去换行strtemp=replace(strtemp,chr(13),"")  '去回车也可以
strtemp=replace(strtemp,vbcrlf,"")

Answer 4

因为要写到表中去，每一行代表一行数据，去掉回车的话就变成了 主题=西安市场北京市场天津市场
发件人[email protected]@sina.comskc2003