access打开对应word文件
用shell命令 或者下面的代码
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3
End Sub
Private Sub Command2_Click()
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Documents.Add ("c:a.doc")
WordApp.Visible = True
Set WordApp = Nothing
End Sub
access如何导入word文档
1,在Word中将文件另存为用逗号分隔或用制表符分隔的文本文件;
2,然后切换到Access 。
3,在Access中打开新的或已有的数据库;
4,单击“数据库”窗口的“表”选项卡;
5,指向“文件”菜单中的“获取外部数据”命令,然后单击“导入”;
6,单击“文件类型”框中的“文本文件”命令;
7,在“文件名”框中,输入要导入的文本文件的名称;
8,单击“导入”命令;
9,根据“导入文本向导”对话框中的指导进行操作;
如果,你需要查看更多的选项或修改指导项(比如域分隔符),可单击第一个向导对话框中的“高级”命令。如果要保存指定项,以便下次导入相似的文本文件时可用它们,请单击“另存为”命令。
access如何导入word文档
1,在Word中将文件另存为用逗号分隔或用制表符分隔的文本文件; 2,然后切换到Access 。
3,在Access中打开新的或已有的数据库; 4,单击“数据库”窗口的“表”选项卡; 5,指向“文件”菜单中的“获取外部数据”命令,然后单击“导入”; 6,单击“文件类型”框中的“文本文件”命令; 7,在“文件名”框中,输入要导入的文本文件的名称; 8,单击“导入”命令; 9,根据“导入文本向导”对话框中的指导进行操作;如果,你需要查看更多的选项或修改指导项(比如域分隔符),可单击第一个向导对话框中的“高级”命令。如果要保存指定项,以便下次导入相似的文本文件时可用它们,请单击“另存为”命令。
怎样在Word中利用access的数据
一、在Word中利用access的数据(一)在原有Word文档中插入Microsoftaccess表或查询的内容1。
在Word文档中选定要插入表或查询的位置。2。
寻视图”中的“工具栏”,然后点击“数据库”,显示“数据库”工具栏,然后单击“插入数据库”按钮。 3。
在弹出的“数据库”窗口中单击“获取数据”按钮,在“打开数据源”的“文件类型”中选择“MSAccess数据库”。在“文件名”框中输入所需Microsoftaccess数据库的名称,然后单击“打开”按钮。
4。单击“表格”或“查询”,然后选择所需表格或查询,最后单击“确定”按钮。
5。如果要选定记录、域或二者的子集,并将它们包含在Word表格中,请单击“查询选项”按钮,选好所需选项,再单击“确定”按钮。
6。如果要自定义Word的表格形式,请单击“表格自动套用格式”按钮,选定所需选项后单击“确定”按钮。
7。单击“插入数据”按钮,在“插入记录”下,选定希望包括在Word表格中的记录。
8。如果希望源数据改变时可更新Word表格中的数据,可再选中“将数据作为域插入”复选框,然后单击“确定”即可。
(二)将Microsoftaccess数据输出到Word文档中1。在Microsoftaccess中,打开所需数据库,然后打开数据库对象:表、查询、窗体或报表。
2。选定所需输出数据的行和列。
3。单击“文件”菜单中的“另存为/导出”命令。
4。选择“另存为一个外部文件或数据库”选项,然后单击“确定”按钮。
5。在“保存类型”框中,为输出数据选择格式:如果要创建保持原有数据格式的文档,请单击“RTF格式”;如果要创建普通的文本文件,作为邮件合并数据源使用,请单击“MicrosoftWord合并文件”按钮。
6。在“文件名”框中,指定新文档的文件名称。
7。如果以RTF格式保存文档,并且希望马上启动Word打开此文档,请选中“自动启动”复选框。
8。如果要选定指定的数据行列,则要选中“选择”选项。
9。单击“导出”命令完成输出。
二、向Microsoftaccess中导入Word文本文件1。 在Word中将文件另存为用逗号分隔或用制表符分隔的文本文件。
2。切换到Microsoftaccess,然后打开新的或已有的数据库。
3。单击“数据库”窗口的“表”选项卡。
4。指向“文件”菜单中的“获取外部数据”命令,然后单击“导入”。
5。单击“文件类型”框中的“文本文件”命令。
6。在“文件名”框中,输入要导入的文本文件的名称。
7。单击“导入”命令。
8。根据“导入文本向导”对话框中的指导进行操作。
要查看更多的选项或修改指导项(比如域分隔符),可单击第一个向导对话框中的“高级”命令。如果要保存指定项,以便下次导入相似的文本文件时可用它们,请单击“另存为”命令。
以上是我对于这个问题的解答,希望能够帮到大家。
怎样将access内容导出到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。
转载请注明出处51数据库 » access读取word文件