Vba word сохранить как pdf

I have some code that copies and pastes data from an Excel file into a word document, how can I get that word document to save as a PDF?

My code is as follows:

Sub RetailerGraphs()

Dim Location As String
Dim Detail As String

Worksheets("-Summary").Activate
Range("AE9").Select
While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    Location = ActiveCell.Value
    Worksheets("Detail Summary").Activate
    Range("B7").Value = Location

    Dim objWord, objDoc As Object
    ActiveWindow.View = xlNormalView
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add

    Range("AH40").Select
    While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Select
        Detail = ActiveCell.Value
        Range("B11").Value = Detail 
        Application.Wait (Now + TimeValue("0:00:05"))
        Range("A1:Z111").CopyPicture Appearance:=xlScreen, Format:=xlPicture
        objWord.Visible = True
        objWord.Selection.Paste
        objWord.Selection.TypeParagraph
        Set objSelection = objWord.Selection
        objSelection.InsertBreak (wdPageBreak)
        If ActiveCell.Value = "END" Then
             objWord.SaveAs2 "C:DocsMyDoc.pdf"
        End If
    Wend
    Worksheets("-Summary").Activate
Wend

End Sub

Within the lines:

If ActiveCell.Value = "END" Then

End If

I have tried the following code to try to get it to save as a PDF:

 objWord.ExportAsFixedFormat OutputFileName:="C:wordtest.pdf", _
  ExportFormat:=wdExportFormatPDF

 objWord.ExportAsFixedFormat OutputFileName:="C:Documents and SettingsAll UsersDesktopYourFile.pdf", ExportFormat:=wdExportFormatPDF

 objDoc.ExportAsFixedFormat OutputFileName:="C:Documents and SettingsAll UsersDesktopYourFile.pdf", ExportFormat:=wdExportFormatPDF

But I get the error on the line where I try to export it as a PDF, e.g. objWord.SaveAs2 "C:DocsMyDoc.pdf" :

Run-time error '438':
Object doesn't support this property or method

Can someone please help?

Note: I have ensured that «Microsoft Word 14.0 Object Library» is ticked in the references, and I change the location to the necessary directory rather than using the above.

How To Save Word Document as PDF?

PDF refers to “Portable Document Format”.

In order to avoid copying or alteration of information by the third party or unauthorized user, We convert the word document to PDF. PDF files cannot be altered.

While sending the important files as a word document, there are chances that it get modified by other user. By converting the Docx to PDF you can avoid the document getting edited by anyone.

Now, here are few easy ways to covert Word to PDF format.

We will see them one by one.

1. Easy Steps to Convert MS Word Docx to PDF

It is the simplest way of converting a word document to PDF.

• Open Word file to be converted to PDF.
• Choose Save As option from file tab (or accessibility tab or using ALT+F+A)
• Change “save As type into PDF(*PDF)
• Select “Option” box.
• Tick these ‘check boxes’ in additional options -> Non-Printing Information section.
  • Create Bookmarks using: Headings
  • Document properties
  • Document structure tags for accessibility
  • Click Continue.
• Then click “OK”.

Now, Your Word document will be saved as a “PDF” file.

Note: If your create bookmarks with ‘heading’ not checked in, then your document will not have a perfect heading. Proper heading and alignment will be followed along with the page number if you follow the above steps correctly.

This will convert all pages in the docx file to PDF. This option is available only in the higher version of office like 2010, 2013, 2016 etc.,

Now, lets see how to do this a Vba code.

2. VBA Code to Save Word as PDF

This vba code is written to run as Word document. From the word document that needs to be converted to PDF, press Alt + F11, then copy paste the bwlo code.

In case if you would like to automate this process from Excel or Outlook, then an object for word.application has to be created first. Then the use the PDF export function, so that word can be accessed using that object.

Sub ConvertWordDocxToPDF()
    'Code from Officetricks
    'Define variable fields
    Dim sFolderPath As String
    Dim sFileName As String
    Dim sNewFileName As String
    
    'Check if Folder Exists
    sFolderPath = ActiveDocument.Path & ""
    
    'Set New File Name
    sFileName = ActiveDocument.Name
    sNewFileName = VBA.Mid(sFileName, 1, VBA.InStrRev(sFileName, ".", , vbTextCompare) - 1)
    sNewFileName = sFolderPath & sNewFileName & ".pdf"
    
    'Save File
    ActiveDocument.ExportAsFixedFormat OutputFileName:=sNewFileName, _
        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

Run the code by pressing F5. It will export the current Word document to a PDF file with the new name given in the code.

Related topic: Convert Excel to PDF

We could use this conversion from word to pdf to save the intermediate work we do while editing a word document or while reviewing for any quality.

3. Convert Word File to PDF – Using Adobe

The other method for creating the PDF file of your word document is using Adobe Acrobat Professional. Adobe Acrobat Professional version 10 or above are suitable for converting document created with Microsoft word 2010 in PDF.

If you have already installed this version of Adobe Acrobat, along with plug in for Word, then the acrobat tab will appear in the word document itself. When you open the tab you will find the options under “Acrobat tab”. You will see a Create PDF icon & a Preferences icon in the Create.

3.1 Adobe PDF Group

3.1.1. Settings Tab:

In the “Settings tab” first configure the settings that are needed to convert the word to PDF file. Click preferences to open the, Acrobat PDF Maker dialog.

• Then, in the Application Settings section of the Settings tab, make sure that below three check boxes are ,checked:
  • Create Bookmarks,
  • Add Links, and
  • Enable Accessibility and Reflow with tagged Adobe PDF.
• Make sure the Prompt for Adobe PDF file name check box is checked in, leave the other tab(s) unaltered (even you can add password to the document in the same settings tab else you can leave it as it is).

3.1.2. Word Tab:

On the Word tab, make sure the following check boxes are checked:

• Convert footnote and end note links.
• Enable advanced tagging.

3.1.3. Bookmarks Tab:

• Make sure the Convert Word Headings to Bookmarks check box is checked, and make sure all of the heading levels are selected in the element list.
• Save the Preferences, once you have completed your selections, click the OK button to save your preferences and exit the PDF Maker dialog.

Configuration is completed. Now start Converting Word to PDF.

3.2 Word to PDF Conversion Steps

If you selected the option to prompt for Adobe PDF file name in the preferences,

1. you will see a dialog titled “Save Adobe PDF File As,” where you can specify a new file name & location.
2. In that case, update the file name and click save to finish.
3. While the file is being processed, a status dialog will display briefly, but because the process happens so quickly, it may disappear as quickly as it appeared.
4. Finally, if you selected the option to View the PDF result in your preferences, the new PDF file displayed.

You can also use online converters to convert the documents. Some of the free online editors are available in online you can use those things to convert.

External Reference: Discussion on saving Word Doc to PDF

What This VBA Macro Code Does

The business world has increasingly become more reliant on mobile computing with devices such as tablets and smartphones becoming mainstream. This, in turn, has provided an elevated demand for analysts to turn spreadsheets into PDF documents so management can view your reports on the go. 

Below is a simple VBA macro that will allow you to quickly turn your Microsoft Word Document into a PDF file in a snap. The code is written to save your PDF in the same folder as the Word Document file currently resides. If you need to make modifications, hopefully, you will be able to follow along with my code comments and customize the code to your specific needs.

Sub Word_ExportPDF()
‘PURPOSE: Generate A PDF Document From Current Word Document
‘NOTES: PDF Will Be Saved To Same Folder As Word Document File
‘SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim CurrentFolder As String
Dim FileName As String
Dim myPath As String
Dim UniqueName As Boolean

UniqueName = False

‘Store Information About Word File
  myPath = ActiveDocument.FullName
  CurrentFolder = ActiveDocument.Path & «»
  FileName = Mid(myPath, InStrRev(myPath, «») + 1, _
   InStrRev(myPath, «.») — InStrRev(myPath, «») — 1)

‘Does File Already Exist?
  Do While UniqueName = False
    DirFile = CurrentFolder & FileName & «.pdf»
    If Len(Dir(DirFile)) <> 0 Then
      UserAnswer = MsgBox(«File Already Exists! Click » & _
       «[Yes] to override. Click [No] to Rename.», vbYesNoCancel)

            If UserAnswer = vbYes Then
        UniqueName = True
      ElseIf UserAnswer = vbNo Then
        Do
          ‘Retrieve New File Name
            FileName = InputBox(«Provide New File Name » & _
             «(will ask again if you provide an invalid file name)», _
             «Enter File Name», FileName)

                    ‘Exit if User Wants To
            If FileName = «False» Or FileName = «» Then Exit Sub
        Loop While ValidFileName(FileName) = False
      Else
        Exit Sub ‘Cancel
      End If
    Else
      UniqueName = True
    End If
  Loop

  ‘Save As PDF Document
  On Error GoTo ProblemSaving
    ActiveDocument.ExportAsFixedFormat _
     OutputFileName:=CurrentFolder & FileName & «.pdf», _
     ExportFormat:=wdExportFormatPDF
  On Error GoTo 0

‘Confirm Save To User
  With ActiveDocument
    FolderName = Mid(.Path, InStrRev(.Path, «») + 1, Len(.Path) — InStrRev(.Path, «»))
  End With

    MsgBox «PDF Saved in the Folder: » & FolderName

Exit Sub

‘Error Handlers
ProblemSaving:
  MsgBox «There was a problem saving your PDF. This is most commonly caused» & _
   » by the original PDF file already being open.»
  Exit Sub

End Sub

Function To Validate Save File Name

Below is a function that you will need to paste in along with the above macro. The VBA function provides a way of testing any file name your users provide to save the PDF document as.

Same Macro Functionality For Other Office Applications

Upon request, I have made similar macros for other Office Applications you may use on a regular basis to convert their files into PDF documents. The links to those specific posts are as follows:

Microsoft Excel Version

Microsoft PowerPoint Version

Using VBA Code Found On The Internet

Now that you’ve found some VBA code that could potentially solve your Excel automation problem, what do you do with it? If you don’t necessarily want to learn how to code VBA and are just looking for the fastest way to implement this code into your spreadsheet, I wrote an article (with video) that explains how to get the VBA code you’ve found running on your spreadsheet.

Getting Started Automating Excel

Are you new to VBA and not sure where to begin? Check out my quickstart guide to learning VBA. This article won’t overwhelm you with fancy coding jargon, as it provides you with a simplistic and straightforward approach to the basic things I wish I knew when trying to teach myself how to automate tasks in Excel with VBA Macros.

Also, if you haven’t checked out Excel’s latest automation feature called Power Query, I have put together a beginner’s guide for automating with Excel’s Power Query feature as well! This little-known built-in Excel feature allows you to merge and clean data automatically with little to no coding!

How Do I Modify This To Fit My Specific Needs?

Chances are this post did not give you the exact answer you were looking for. We all have different situations and it’s impossible to account for every particular need one might have. That’s why I want to share with you: My Guide to Getting the Solution to your Problems FAST! In this article, I explain the best strategies I have come up with over the years to get quick answers to complex problems in Excel, PowerPoint, VBA, you name it! 

I highly recommend that you check this guide out before asking me or anyone else in the comments section to solve your specific problem. I can guarantee that 9 times out of 10, one of my strategies will get you the answer(s) you are needing faster than it will take me to get back to you with a possible solution. I try my best to help everyone out, but sometimes I don’t have time to fit everyone’s questions in (there never seem to be quite enough hours in the day!).

I wish you the best of luck and I hope this tutorial gets you heading in the right direction!

Chris
Founder, TheSpreadsheetGuru.com