Now, open the folder that contains the Word documents that you want to convert to PDF.Name the shortcut accordingly - e.g., Convert Word Docs to PDF.Optionally, assign a nice-looking icon by clicking on the Change Icon button.Prefix the shortcut target with wscript.exe and then followed by a space.Create a shortcut to the script doc2pdf.vbs in the SendTo folder.Open File Explorer and browse the following SendTo folder: C:\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo.vbs extension, and in a permanent folder. Copy the above VBScript code to Notepad.Set objDoc = (docPath)Ĭonvert Word documents to PDF using VBScript PdfPath = fso.GetParentFolderName(docPath) & "\" & _ Set objWord = CreateObject("Word.Application") If LCase(Right(docPath, 4)) = ".doc" Or LCase(Right(docPath, 5)) = ".docx" Then Set fso = CreateObject("Scripting.FileSystemObject")ĭocPath = fso.GetAbsolutePathName(docPath)
Here is a simple script I wrote to do the job: 'Convert. Using a VBScript, you can bulk convert Word documents to PDF.
Microsoft Office has automation or scripting support. Refer here to explore the rich set of Syncfusion Essential PDF features.RELATED: How to Batch Convert Excel Sheets into PDF Files How to Batch Convert Word Documents into PDF Files Method 1: Using a custom VBScript Take a moment to peruse the documentation for working with document conversion, where you will find other options like Excel, RTF, TIFF, and XPS to PDF conversion.Īn online sample link demonstrating the use of Word to PDF conversion. ("WordtoPDF.pdf")Ī complete working sample can be downloaded from WordToPDFSample.zipīy executing the program, you will get the PDF document as follows. 'This will open the PDF file so, the result will be seen in default PDF viewer Dim wordDocument As WordDocument = New WordDocument(("Sample.docx"), FormatType.Docx)ĭim converter As DocToPDFConverter = New DocToPDFConverterĭim pdfDocument As PdfDocument = converter.ConvertToPDF(wordDocument)
0 kommentar(er)
