XSaveFolder = xSaveDlg.SelectedItems(1) "\"ĪctiveDocument. Set xSaveDlg = Application.FileDialog(msoFileDialogFolderPicker) After running the code, an Open window pops up, please select a folder containing the douments you want to convert, in the second popping up Save PDF files in window, select a folder to save the PDF files.ĭim xDlg As FileDialog, xSaveDlg As FileDialogĭim xFolder As Variant, xSaveFolder As Variant The following VBA code can do you a favor. In the Document Format Converter window, you need to do as follows: Kutools for Word : With more than 100 handy Word add-ins, free to try with no limitation inġ. If VBA code is hard to handle, you can try the Convert documents utility of Kutools for Word to solve the problem. Then all Word documents in selected folder are converted to separate pdf files at once. sd2 files are gone but Amadeus should still work. That's a really old format, deprecated in 2009 most of the older converter apps that handled. A Browse dialog pops up, please select the folder which contains Word documents you will convert to pdf files, and click the OK button. Alternatively the audio editor Amadeus Pro, which is about 60, has a batch converter and last I checked it can still read. Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ĬreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _īitmapMissingFonts:=True, UseISO19005_1:=FalseĤ. WdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ĪctiveDocument.ExportAsFixedFormat OutputFileName:=xFolder
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |