如何用VB打开word并且创建表格，向表格里填写数据。

Question

要求用VB6.0来实现，像表格填写数据我试验过用录制宏的方法，但是移植到VB里面就不管了，谢谢大家提供源代码，我会追加分数的。
这个方法我用过的呀，通不过，CD是什么意思啊？ 我一运行就提示变量没有定义，我已经引用了Microsoft Word 11.0 Object Library.

Answer 1

我给修改了一下，这个代码我调试通过了：
Option Explicit

Private Function OutWord(ByVal filePath As String) As Boolean
Dim newDoc As Word.Document
Set newDoc = New Word.Document

With newDoc
.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 10.5
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphRight
.Content.InsertAfter "编号:" & vbCrLf

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 26
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = True
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter
.Content.InsertAfter vbCrLf & "XXXXXXXXX报告" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 15
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
.Content.InsertAfter "项目名称:" & vbCrLf
.Content.InsertAfter "应急类型：" & vbCrLf
.Content.InsertAfter "预警状态：正常/警界/危机" & vbCrLf

.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter
.Tables.Add Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=1, NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
'With .Tables(0)
'If .Style <> "表 (格子)" Then
'.Style = "表 (格子)"
'End If
'.ApplyStyleHeadingRows = True
'.ApplyStyleLastRow = True
'.ApplyStyleFirstColumn = True
'.ApplyStyleLastColumn = True
'.Columns.Width = 50
'.Rows.Height = 20
'End With

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"
.Paragraphs(.Paragraphs.Count).Range.Font.Size = 15
.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False
.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
.Content.InsertAfter "委 托 人：" & vbCrLf
.Content.InsertAfter "预 警 机 构：" & vbCrLf
.Content.InsertAfter "报告负责人：" & vbCrLf
.Content.InsertAfter "时 间：" & vbCrLf

.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft
.Tables.Add Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=8, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
With .Tables(2)
'If .Style <> "表 (格子)" Then
'.Style = "表 (格子)"
'End If
'.ApplyStyleHeadingRows = True
'.ApplyStyleLastRow = True
'.ApplyStyleFirstColumn = True
'.ApplyStyleLastColumn = True
.Cell(2, 1).Range.Text = "项目名称"
.Range.Cells(3).Row.Cells.Merge
.Range.Cells(3).Range.Font.Size = 15
.Range.Cells(3).Range.Text = "信息来源/文献检索范围：" & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(4).Row.Cells.Merge
.Range.Cells(4).Range.Text = "情况描述/检索结果：" & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(5).Row.Cells.Merge
.Range.Cells(5).Range.Text = "影响分析：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(6).Row.Cells.Merge
.Range.Cells(6).Range.Text = "建议：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(7).Row.Cells.Merge
.Range.Cells(7).Range.Text = "专家组成员：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(8).Row.Cells.Merge
.Range.Cells(8).Range.Text = "附件目录：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.Range.Cells(9).Row.Cells.Merge
.Range.Cells(9).Range.Text = "报告负责人：" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & " 年 月 日"
End With

End With

newDoc.SaveAs filePath
newDoc.Close
End Function

Private Sub Form_Load()
Dim filename As String
filename = App.Path & "\aa.doc"
OutWord filename
MsgBox filename
MsgBox "OK"
End Sub

Answer 2

'在你的程序目录 有一个abc.doc 且里面有一个表
Private Sub Form_Load()
Dim doc1 As Document '定义用于接收文档的变量

'延迟错误处理
On Error Resume Next
Dim wdApp As Word.Application
'启动Word，可能需要稍微等待...
Set wdApp = New Application
wdApp.Visible = True '应用程序可见
Set doc1 = wdApp.Documents.Open(VB.App.Path & "\abc.doc") '打开abc.doc文件

If doc1 Is Nothing Then
MsgBox "找不到abc.doc"
End If

If doc1.Tables.count <> 0 Then
doc1.Tables(1).Columns(1).Cells(1).Range.Text = "abc"
Else
MsgBox "表格不存在！"
End If

End Sub