Question

在word里vba中如何打开另一个word文档，并获取该文档表格里的某个单元格内的数据

Answer 1

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

追问

我提取出来是带有格式的，

怎么把提取的数据转换成str类型，不带格式的。

追答

text属性返回的就是string.
你是想去掉结尾的非打印字符吧?
2种方法

1
t = doc.Tables(1).Cell(2, 3).Range.Text
t = Left(t, Len(t) - 2)
2
t = replace(doc.Tables(1).Cell(2, 3).Range.Text,chr(13) & chr(7),"")