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

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

我给修改了一下，这个代码我调试通过了：
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(.Paragraph