title: Exporting as PDF in VBA
body: <p>I would like to create an automated certificate issuing process that allows me to "save as" an existing documents with a new title, and creates a PDF of it.</p>
  
  <p>The problem I'm facing this is in the PDF export routine, I've commented below.</p>
  
  <pre><code>Sub GerarCertificado()
  
  Dim Word As Word.Application
  Dim DOC As Word.Document
  Dim aux As Long
  
  For aux = Range("F8").Value To Range("F11").Value
  
  Set Word = CreateObject("Word.Application")
  Word.Visible = True
  
  Set DOC = Word.Documents.Open("C:\Users\vitor\Downloads\Certificados\Declaracao.doc")
  
  With DOC
  
  .Application.Selection.Find.Text = "#NOME"
  .Application.Selection.Find.Execute
  .Application.Selection.Range = Sheets("Gerar Certificado").Cells(aux, 1)
  
  .Application.Selection.Find.Text = "#PALESTRA"
  .Application.Selection.Find.Execute
  .Application.Selection.Range = Sheets("Gerar Certificado").Cells(aux, 2)
  
  .Application.Selection.Find.Text = "#HORAS"
  .Application.Selection.Find.Execute
  .Application.Selection.Range = Sheets("Gerar Certificado").Cells(aux, 3)
  
  .Application.Selection.Find.Text = "#DIA"
  .Application.Selection.Find.Execute
  .Application.Selection.Range = Sheets("Gerar Certificado").Cells(aux, 4)
  
  .Application.Selection.Find.Text = "#DATA"
  .Application.Selection.Find.Execute
  .Application.Selection.Range = Sheets("Gerar Certificado").Cells(aux, 5)
  
  .SaveAs ("C:\Users\vitor\Downloads\Certificados\Certificados\" &amp; Sheets("Gerar Certificado").Cells(aux, 1) &amp; ".doc")
  
  'Here starts the error
  .ExportAsFixedFormat OutputFileName:=_
      "C:\Users\vitor\Downloads\Certificados\Certificados\" &amp; Sheets("Gerar Certificado").Cells(aux, 1) &amp; ".pdf",_
      ExportFormat:=wdExportFormatPDF,_
      OpenAfterExport:=True, OptimizeFor:=wdExportOptimizeForPrint, Range:=_
      wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent,_
      IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=_
      wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=_
      True, UseISO19005_1:=False
  
  .Close
  
  Word.Quit
  Set DOC = Nothing
  Set Word = Nothing
  
  End With
  
  Next aux
  
  MsgBox "Certificados gerados com sucesso!", vbInformation
  
  End Sub
  </code></pre>
  
  <p>Can anyone help with it or improve it for a better solution? I would really appreciate it. Thanks.</p>