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

szeloongk

azhicom 发表于 2011-10-7 11:49
问题是 OutputFileName:="D:\Doc1.pdf", _  中的文件名是变量要怎么写代码？
哪位高手帮帮忙

Dim fileName as string

filename ="C:\file.pdf"
OutputFileName:= filename
或者

filename ="file.pdf"
OutputFileName:=“C:\" & filename

MCXY

不好意思，不常来今天才看见，请问PDG文件是用什么软件生成的。

gerogeedward

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
怎么不好用/

老和山下RAm

azhicom 发表于 2011-10-7 11:49
问题是 OutputFileName:="D:\Doc1.pdf", _  中的文件名是变量要怎么写代码？
哪位高手帮帮忙

"D:\" & 变量 & ".pdf"

觅凤的梧桐

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

  Application.DisplayAlerts = False

mcxy老师，你这个代码核心是wdDoc.SaveAs Left(vrtSelectedItem, Len(vrtSelectedItem) - 5), wdFormatPDF，我试了下，有的文件转化出来没有后缀名，有的有，是什么原因，office2016

zzpsx

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

  Application.DisplayAlerts = False

这段代码非常好，如果能跳过选择这一步，直接作用于当前文件夹就更好了。