VBA Code converting .doc to .pdf skips first document

Status
Not open for further replies.

Nicole Marie

New Member
Joined
Apr 13, 2018
Messages
7
Hello,

I have the following code to convert Word documents saved in a specific folder to PDFs, but when the code is ran, it skips over the first file in the folder and doesn't convert it. If i run the code a SECOND time, it will convert it. Any ideas why it skips over?

Sub DOC_PDF()
Application.ScreenUpdating = False


Dim file
Dim path As String


path = "U:\Documents\File Conversion Test"


file = Dir(path & "*.doc") 'Dir means directory
Do While file <> "" '<> means not equal, so this says if the file name isn't blank
Documents.Open FileName:=path & file 'Open files that are located in this directory, ending in .doc


ActiveDocument.ExportAsFixedFormat OutputFileName:= _
file & ".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
ChangeFileOpenDirectory "U:\Documents\File Conversion Test"


ActiveDocument.Save 'Save active doc
ActiveDocument.Close 'Close active doc


file = Dir()




Loop


Application.ScreenUpdating = True
End Sub

Thank you for your help!
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
Status
Not open for further replies.

Forum statistics

Threads
1,213,492
Messages
6,113,967
Members
448,537
Latest member
Et_Cetera

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top