Ms-Dos - Convertir a pdf arrastrando el archivo al icono bat.

Option Explicit

'Doc2PDF permite convertir documentos creados en Microsoft Word en archivos PDF.

'Es necesario renombrar previamente el archivo a: documento.doc.

Doc2PDF "documento.doc"

Sub Doc2PDF( myFile )

	Dim objDoc, objFile, objFSO, objWord, strFile, strPDF

	Const wdFormatDocument                    =  0

	Const wdFormatDocument97                  =  0

	Const wdFormatDocumentDefault             = 16

	Const wdFormatDOSText                     =  4

	Const wdFormatDOSTextLineBreaks           =  5

	Const wdFormatEncodedText                 =  7

	Const wdFormatFilteredHTML                = 10

	Const wdFormatFlatXML                     = 19

	Const wdFormatFlatXMLMacroEnabled         = 20

	Const wdFormatFlatXMLTemplate             = 21

	Const wdFormatFlatXMLTemplateMacroEnabled = 22

	Const wdFormatHTML                        =  8

	Const wdFormatPDF                         = 17

	Const wdFormatRTF                         =  6

	Const wdFormatTemplate                    =  1

	Const wdFormatTemplate97                  =  1

	Const wdFormatText                        =  2

	Const wdFormatTextLineBreaks              =  3

	Const wdFormatUnicodeText                 =  7

	Const wdFormatWebArchive                  =  9

	Const wdFormatXML                         = 11

	Const wdFormatXMLDocument                 = 12

	Const wdFormatXMLDocumentMacroEnabled     = 13

	Const wdFormatXMLTemplate                 = 14

	Const wdFormatXMLTemplateMacroEnabled     = 15

	Const wdFormatXPS                         = 18

	' Create a File System object

	Set objFSO = CreateObject( "Scripting.FileSystemObject" )

	' Create a Word object

	Set objWord = CreateObject( "Word.Application" )

myfile = "E:\Nueva Carpeta\prueba.docx" '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

	With objWord

		' True: make Word visible; False: invisible

		.Visible = True

		' Check if the Word document exists

		If objFSO.FileExists( myFile ) Then

			Set objFile = objFSO.GetFile( myFile )

			strFile = objFile.Path

		Else

			WScript.Echo "ERROR: El archivo no existe" & vbCrLf

			' Close Word

			.Quit

			Exit Sub

		End If

		' Build the fully qualified HTML file name

		strPDF = objFSO.BuildPath( objFile.ParentFolder, _

		         objFSO.GetBaseName( objFile ) & ".pdf" )

		' Open the Word document

		.Documents.Open strFile

		' Make the opened file the active document

		Set objDoc = .ActiveDocument

		' Save as HTML

		objDoc.SaveAs strPDF, wdFormatPDF

		' Close the active document

		objDoc.Close

		' Close Word

		.Quit

	End With

End Sub

@echo off

set MyFile=%1

Doc2Pdf %MyFile%

@echo off

set /p MyFile=Nombre del fichero...

Doc2Pdf %MyFile%