创建基于模板的Word文档

来源:www.accessoft.com 点击数:9538 　 | 收藏 | 复制

时　间:2016-02-23 08:47:41
作　者:杨雪 ID：42182 城市：南京
摘　要: Access 与Word之间的数据读写：Add 方法，Path 属性
正　文:

通过Access创建基于指定模板的Word文档，需要在为Word应用程序创建文档时，使用模板的地址来指定创建文档基于的模板，其具体的语法格式如下所示：

[应用程序名].Documents.Add([模板地址])

模板的地址可以直接通过文本字符串来指定，地址的指定常见的形式有俩种，绝对地址和相对地址。

本例通过CurrentProject对象的Path属性来得到当前数据库文件的地址，然后通过该地址来得到Word模板的地址，其具体的语法格式如下所示：

CurrenntProject.Path & "\[模板名].dotx"

本例中使用的是Word 2010,模板文件的后缀为“.dotx”。如果使用的Word 2003以及更早版本，需要使用后缀为“.dot”的模板文件。

图片：

源码：

'创建一个基于模板的Word文档

Private Sub cmd_word_Click()

'使用New关键字创建Word应用程序

Dim wordApp As New Word.Application

Dim wordDoc As Word.Document

Dim str As String

'获取当前文件的路径

str = CurrentProject.Path & "\示例模版.dotx"

'创建基于指定地址的模板的Word文档

Set wordDoc = wordApp.Documents.Add(str, False)

'设置Word应用程序可视状态为True

wordApp.Visible = True

Set wordApp = Nothing

Set wordDoc = Nothing

End Sub

附件:

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店

Access网店: