安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access创建空白的Word文档

2017-10-17 17:12:00
tmtony8
原创
1463

Access作为Office的组件,和Word,excel 交互数据是肯定可以的。在Access中操作其他Office组件也是我们常用功能之一。

比如说把刷选好的数据导出到Excel,按Access内容创建一份Word简历

这里先来介绍一下如何创建一个空白的Word文档

分享两?#22336;?#27861;:


1.通过代码定义对象的方法直接创建

Public Sub 创建空白的word文档()
    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
End Sub



2.通过定义word应用程序对象和文档对象来实现

注意:此方法需要在引用“Microsoft Word 14.0 Object Library”库。

Public Sub 创建空白的word文档2()
    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
End Sub



    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.17
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假