怎麼用word生成數據

1. 怎樣在word中創建資料庫

給您一段代碼，供參考，如有問題，QQ：375267128，傳給您一個完整的實例，使用時請引用一下Microsoft Word 11.0 Object Library

Function ZWord1(模板名, 文件名, 記錄集, 起始行, 表號, Optional 條件 As String)
Dim doc As New Word.Document ' 定義引用 Microsoft Word 的變數。
Dim BTable As Word.Table
Dim dbs As Database '定義引用資料庫的變數。
Dim rst As DAO.Recordset '定義引用記錄集的變數。
Dim I, J, P As Integer
Dim s As String
'On Error GoTo err1
'使用DAO操作打開明細記錄集
Set dbs = CurrentDb()
If Nz(條件) <> "" Then 記錄集 = "select * from " & 記錄集 & " where " & 條件
Set rst = dbs.OpenRecordset(記錄集) '設置記錄集
If InStr(1, UCase(模板名), ".DOC") > 0 Then
WJ1 = CurrentProject.Path & "\" & 模慶此板名
'模板文件名(CurrentProject.Path為當前資料庫的路徑）
Else
WJ1 = CurrentProject.Path & "\" & 模板名 & ".DOC"
'模板文件名(CurrentProject.Path為當前資料庫的路徑)
End If
If InStr(1, UCase(文件名), ".DOC") > 0 Then
WJ2 = CurrentProject.Path & "\" & 文件名 '目標文件名
Else
WJ2 = CurrentProject.Path & "\" & 文件名 & ".DOC" '目標文件名
End If
FileCopy WJ1, WJ2 '拷貝文件（模隱慧板文件拷貝成目標文件）
Set doc = GetObject(WJ2, "Word.Document") '建立與Word的連接變數
doc.Application.Visible = True '打開屬性為真
doc.Activate
Set BTable = doc.Application.ActiveDocument.Tables(表號)
Set rst = dbs.OpenRecordset(記錄集) '設置記錄集
If Not rst.EOF Then rst.MoveFirst
I = 起始行
While Not rst.EOF
Set rowNew = BTable.Rows.Add() '加入一行
J = 0
For Each HCell In BTable.Rows(I).Cells
HCell.Range.InsertAfter Nz(rst.Fields(J))
J = J + 1
Next HCell
rst.MoveNext
I = I + 1
Wend
doc.Save '保存Word
doc.Application.Quit '關閉Word
Set doc = Nothing '清除內存變數
Set BTable = Nothing
Set dbs = Nothing
Set rst = Nothing
ZWord1 = True
Exit Function
err1:
doc.Application.Quit
Set doc = Nothing '清除內譽攜迅存變數
Set BTable = Nothing
Set dbs = Nothing
Set rst = Nothing
ZWord1 = False
MsgBox ("出現錯誤，可能是Word已打開，請關閉Word後再試")
End Function

2. word如何製作數據分析圖

要用WORD製作數據分析圖，參照下面步驟：

1、打開word，點擊「插入」，再點擊「圖表」；

3. 怎樣在word文檔中建立數據表

1.
啟動Word，新建一篇文檔。現在需要在Word文檔中內建Excel表格的方式來給文檔添加一表格。
2.

將游標定位到Word文檔中要創建工作表的位置。單擊工具欄上的「插入」選項卡，然後單擊「文本」組的「對象」（右邊的下三角），選擇「對象」（注意：也可以直接單擊「對象」哦）。
3.

打開「對象」對話框，在「新建」選項卡中選擇對象類型，這里我們選擇「Microsoft Office Excel 2007 Wordbook」（類似），然後單擊「確定」。
4.

這時候就將Excel工作表作為對象就插入到Word文檔中了，可以雙擊表格來編輯了。在表格中輸入數據，調整好表格列寬
5.

單擊Excel工作表對象以外的區域，回到Word正常狀態發現表格中的數據沒有完全顯示，這是拖拽四周的小方塊也無濟於事，怎麼辦呢？這還需要雙擊表格跳轉到Excel對象的編輯模式拖拽四周的小方塊來調整工作表在Word文檔中的顯示區域。
6.
經過調整，最後效果
參考資料：http://jingyan..com/article/335530da52c46d19ca41c35a.html