Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

Access新建空白word文档代码整理

时 间:2019-08-07 16:19:35
作 者:淡泊   ID:49106  城市:大连
摘 要:access新建空白word文档
正 文:

'新建空白word文档

Private Sub cmd_word_Click()
'1
''定义俩个对象
'    Dim wordApp As Object
'    Dim wordDoc As Object
'    '创建word应用程序
'    Set wordApp = CreateObject("word.application")
'    '创建的word应用程序设置为可视
'    wordApp.Visible = True
'    '在word应用程序中新建空白word文档
'    Set wordDoc = wordApp.Documents.Add
'    '释放对象控件
'    Set wordApp = Nothing
'    Set wordDoc = Nothing

'2
'    '定义两个具体的对象
'注:引用“Microsoft Word 14.0 Object Library”支持库后才能够使用。
'    Dim wordApp As Word.Application
'    Dim wordDoc As Word.Document
'    '创建Word应用程序对象并添加空白文档
'    Set wordApp = CreateObject("word.application")
'    Set wordDoc = wordApp.Documents.Add
'    '设置Word应用程序可以状态为真
'    wordApp.Visible = True
    
'3
     '定义Word应用程序对象时使用New关键字
'注:引用“Microsoft Word 14.0 Object Library”支持库后才能够使用。
    Dim wordApp As New Word.Application
    Dim wordDoc As Word.Document
    '创建空白Word文档
    wordApp.Documents.Add
    wordApp.Visible = True
    '释放对象空间
    Set wordApp = Nothing
    Set wordDoc = Nothing
End Sub


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

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助