Dzwebs.Net

撰写电脑技术杂文十余年

在ACCESS里通过VBA转文档DOC为PDF的代码

Admin | 2012-11-15 10:42:45 | 被阅次数 | 7152

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在ACCESS中可以使用VBA将WORD文档转化为PDF文件,其代码及说明如下:

  版本要求:office2007

  在ACCESS中是通过报表来完成的。

  注意:要使这段代码运行,需要在Access 数据库中增加一个引用,即Microsoft Word 12.0 Object Library的引用。

  Private Sub CreatePDF(strSourceFile As String, strDestFile As String)
  Dim objWord As Word.Application
  Dim objWordDoc As Word.Document

  On Error GoTo ErrorHandler

  Set objWord = CreateObject(“Word.Application”)
  objWord.Visible = True
  Set objWordDoc = objWord.Documents.Open(strSourceFile)
  If Not objWord Is Nothing Then
  objWordDoc.ExportAsFixedFormat strDestFile, wdExportFormatPDF, False, wdExportOptimizeForPrint,   wdExportAllDocument
  End If

  ExitProcedure:
  objWordDoc.Close False
  objWord.Quit
  Set objWordDoc = Nothing
  Set objWord = Nothing
  Exit Sub

  ErrorHandler:
  MsgBox Err.Description, vbInformation, “Error Creating PDF”

  End Sub

  注意是在事件处理的一开始就显示Word,不这样做的话,代码将有错,那么可能Word文件就会被“挂”起。


该杂文来自: 数据库Sql,VFP,Access

上一篇:打开Access后多出一个图标,记录锁定信息

下一篇:Access的四种特殊数据类型介绍

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计