怎样在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

1、单击“开始”→”所有程序“→”Microsoft Office“→”Microsoft Access “，打开Microsoft Access 软件

2、在打开的Microsoft Access 软件中点击“新建”

3、选择在界面的右边出现了新建对话框，选择空数据库。

4、选择一个存放该文件的位置。

5、完成

步骤：

1、建立左表，在A:E列输入数据，在F和G列输入公式。

2、按CTRL+A，复制；打开2日空白表，按CTRL+A，粘帖；

将2日表中C:E列数据清除，在C2输入公式“=VLOOKUP('2日'!A2,'1日'!$A:$F,6,FALSE)”，用右下角填充柄向下复制到C8导入1日期末库存；

在D和E列输入2日数据，以显示2日状况；3日及以后照此处理。

3、使用“记录单”（以2日表为例）：

1）选中表中任一非空单元格，点选“数据/记录单”。

2）查找资料：点“上一条”或“下一条”按钮，找到需要资料；或点“条件”，在“品名”或“价格”框输入品名或价格，点“上一条”也可查到需要资料。

3）添加项目：点“新建”钮，在空框输入品名等有关信息，再点“新建”钮，即可在2日表添加新项目。

4）删除项目：找到拟删项目，点“删除”钮，即可删除2日表已有项目。

---