Dim wordapp As New Word.Application
Dim worddcmt As Word.Document
'增加一个新文档
wordapp.Documents.Add()
'激活文档
worddcmt = wordapp.ActiveDocument
'定义一个WORDTABLE对像
Dim wordapp As New Word.Application
Dim worddcmt As Word.Document
'增加一个新文档
wordapp.Documents.Add()
'激活文档
worddcmt = wordapp.ActiveDocument
'定义一个WORDTABLE对像