请问如何实现用word生成一个文本，同时在文本文件里插入一个表格？

Question

我已经写了如下代码 
Public Sub Command1_Click() 
Dim wordapp As Object 
Set wordapp = CreateObject("word.application") 
wordapp.Visible = ture 
Dim mydoc As Object 
Set mydoc = wordapp.Documents.Add 
mydoc.Tables.Add Range:=Selection.Range, NumRows:=nLineMS + 1, NumColumns:=3 mydoc.saveas "c:\tempddd.doc" 
wordapp.quit 
Set mydoc = Nothing 
Set wordapp = Nothing 
end sub 
但VB执行时总是说没有对象??总停在红色那一行????，语句应该没错的，我用带有该语句的宏在word软件里都可以生成一个表格。

Answer 1

在vb环境里，你得给Selection对象前面加上word application对象
mydoc.Tables.Add Range:=wordapp.Selection.Range, NumRows:=nLineMS + 1, NumColumns:=3