Excel VBA如何把Word另存为pdf格式

Night_Knight

如题。
主要操作流程如下：
1.用VBA打开Word文档
2.修改Word某些内容
3.保存Word文档
4.再将Word文档另存为pdf格式
5.退出Word

目前流程的1-3及5都已经编写调试完毕，但始终不晓得将Word另存为pdf的代码怎么写，望各位高手帮忙。

P.S.我Office 2007已经安装了微软的pdf插件，可以另存为pdf格式。

[ 本帖最后由 Night_Knight 于 2011-2-13 19:12 编辑 ]

yaojil

参考这个改改
Sub mac()
'
    ActiveDocument.ExportAsFixedFormat OutputFileName:="D:\Doc1.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

winland

楼上的代码应该是Office2010的，Office2003和Office2007没有直接导出为PDF的功能（需要第3方插件，Office2007有微软自己的插件）。

Night_Knight

多谢2楼，Office2007安装了pdf插件后也可以用这个代码。

Night_Knight

现在又有了个问题。
现在显示the remote server machine does not exist or is unavailable
望高手解答

gyjhero2011

直接打印啊   打印机设成PDF打印机

Night_Knight

因为要批量生成大概上百个pdf，所以一个一个太慢

azhicom

问题是 OutputFileName:="D:\Doc1.pdf", _  中的文件名是变量要怎么写代码？
哪位高手帮帮忙

MCXY

Sub gopdf()

  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
Dim fDialog As FileDialog
  Set fDialog = Application.FileDialog(msoFileDialogFilePicker) '返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。
Dim vrtSelectedItem As Variant
Dim wdDoc As Document
Dim showFolder As Boolean
  showFolder = False
  With fDialog
    .Filters.Add "Word文件", "*.doc;*.docx;*.docm", 1
    If .Show = -1 Then
      For Each vrtSelectedItem In .SelectedItems
        '如果选择了本文档则跳过
        If InStrRev(vrtSelectedItem, ThisDocument.Name) = 0 Then
          On Error Resume Next
          Set wdDoc = Application.Documents.Open(vrtSelectedItem, ReadOnly:=True)
          wdDoc.SaveAs Left(vrtSelectedItem, Len(vrtSelectedItem) - 5), wdFormatPDF
          wdDoc.Close False
        End If
      Next vrtSelectedItem
      If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
         InStrRev(fDialog.SelectedItems(1), "")), vbMaximizedFocus)
    End If
  End With
  Set fDialog = Nothing
  Application.ScreenUpdating = True

  Application.DisplayAlerts = True

End Sub

dyzx

MCXY 发表于 2017-3-23 10:40
Sub gopdf()

  Application.DisplayAlerts = False

MCXY老师：如何将PDG文件转换成WORD或EXCEL文件，请指教，多谢。