VBA Code converting .doc to .pdf skips first document

[Nicole Marie]

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!

 

[Macropod]

You previously asked about this in: https://www.mrexcel.com/forum/gener...a-code-convert-jpg-pdf-other-conversions.html
As per Rule 12 (http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html), kindly don't create duplicate threads on the same topic. Thread closed.