怎么用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