在word里vba中如何打开另一个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

追问

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

怎么把提取的数据转换成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),"")

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y3rrje32x.html