word vba 如何读取表格中某单元格的数字类型的数据，并参与表达式运算

word vba中 想利用word中表格里边的数字参与表达式运算，怎么读取数字啊，是cell（a,b）.range.text吗~

你写个测试程序测试下就知道了。
我认为像这种简单的计算交给Excel显得更明智，而不是想破头去搞啥VBA，在Excel中处理好数据然后再转成Word的表格即可。

Sub test() Dim doc As Document Set doc = Documents.Open("d:\某文件.doc") '打开d盘根目录下名为 某文件.doc 的文档 MsgBox doc.Tables(1).Cell(2, 3).Range.Text '显示该文档第1个表格第2行第3列的单元格的文本End Sub

可以使用VBA，读取Word文档中的所有表格，并把数字类型的单元格读出来计算。

下面是示例代码，自己适当改改就可以用了。

Dim tbs,tb, rg
Set tbs = documents(1).Tables
For t1 = 1 To tbs.Count
    Set tb = tbs(t1)
    For i = 1 To tb.Rows.Count
        For j = 1 To tb.Columns.Count
            With tb
                rg = .Cell(i,j).Range.Text
                rg = left(rg, len(rg)-2)
                If IsNumeric(rg) Then
                    '这里可以补充代码，把表格中的数字，参与表达式运算
                End If
            End With
        Next j
    Next i
Next t1
Set tbs = nothing
Set tb = nothing

写个测试程序测试下就行。这种简单的计算交给Excel更好，而不是去弄复杂的VBA，在Excel中处理好数据然后再转成Word的表格即可。
如果是表格嵌套表格，读取其中的指定数据，如果WORD中每一页都有文字和表格。可以在excel中选择要创建word应用程序后再打开要操作的文档，再提取word内容中表格部分内容。
这里有俩学习贴：http://club.excelhome.net/thread-1130724-1-1.html
http://club.excelhome.net/thread-1019313-1-1.html
希望帮到你~~~~

SQL Server数据中运算符与表达式