Sub SaveDocAsPdf()

  ' -->  Setting, change to suit
  Const DocFileName = "C:\Temp\Wb1.doc"
  ' <-- End of setting
  
  Dim objWord As Object
  Const wdExportFormatPDF = 17, wdExportOptimizeForPrint = 0, wdExportAllDocument = 0
  
  ' Set/Create object of Word Application
  On Error Resume Next
  Set objWord = GetObject(, "Word.Application")
  If objWord Is Nothing Then Set objWord = CreateObject("Word.Application")
  On Error GoTo exit_
    
  ' Open document, print it as PDF and then close
  With objWord.Documents.Open(Filename:=DocFileName, ReadOnly:=True)
      .ExportAsFixedFormat OutputFileName:=Left(DocFileName, InStrRev(DocFileName, ".")) & "PDF", _
                           ExportFormat:=wdExportFormatPDF, _
                           OpenAfterExport:=False, _
                           OptimizeFor:=wdExportOptimizeForPrint, _
                           Range:=wdExportAllDocument
       .Close False
  End With
  
exit_:

  ' Inform about error
  If Err Then MsgBox Err.Description, vbCritical, "Error #" & Err.Number
  
End Sub