求教：如何利用vba程序在word中调用excel单元格中的数据！！！

Sub test()
Set sht = GetObject(, "excel.application").activesheet '假设要获取的内容为已经打开的excel文档的活动工作表
MsgBox sht.Cells(1, 2) '假设要获取第1行第2列的单元格,亦可用range("b1")代替cells(1,2)
End Sub

老大 这个只是弹出一个对话框，显示结果。我想要输入到word里面？不知道怎么修改，谢谢

能把它弹出来,就不能写到word里吗?
thisdocument.tables(1).cell(2,3).range.text=4
可以让当前文档的第一个表格的第二行第三列的单元格的文本等于4

如果文档没有打开 想调用 路径怎么写？？谢谢！！

如何填写到word 中呢？