"John Chen @ NTS" wrote:

> Can someone take a look the following script and change it to apply for MS
> Excel?
>
> '
> ' Description
> ' ===========
> ' Command line conversion of MS Word files to PDF using Click to Convert.
> '
> ' Version: 5.2 of Click to Convert or later
> ' (C)Copyright 2004 Inzone Software Limited.
> '
> ' Usage
> ' =====
> ' Run this script using Windows Scripting or from the Windows command line. 
> You'll need to have the Microsoft scripting engine installed.
> ' C:> cscript doc2pdf.vbs <full path to MS Word document>
> ' E.g. cscript doc2pdf.vbs c:\temp\abc.pdf
> '
> ' You-do:
> ' =======
> ' 1. You'll need to add error handling etc for a real world implementation.
> ' 2. If you plan to run this script many times, you'll need to add code to
> wait for the first conversion to complete before beginning the next one.
> '
>
>
> Dim arguments
> Set arguments = WScript.Arguments
>
>
> Function ConvertDocToPDF()
>
>   Dim sPath
>   Dim sInstallPath
>   Dim oWS
>   Dim sCurrentPrinter
>   Dim oWord
>   Dim oDoc
>
>   On Error Resume Next
>
>   If arguments.Count < 1 Then
>     WScript.Echo "Convert a MS Word document to PDF using Click to Convert."
>     WScript.Echo ""
>     WScript.Echo "Usage: doc2pdf.vbs <doc-file>"
>     WScript.Echo "E.g. doc2pdf.vbs c:\temp\myfile.doc"
>     WScript.Echo ""
>     WScript.Quit 1
>   End If
>
>   Set oWS = CreateObject("WScript.Shell")
>
>   ' Access the Registry to retrieve the installation path of Click to Convert.
>   sInstallPath = oWS.RegRead("HKLM\SOFTWARE\Inzone
> Software\ClickToConvert2\Root")
>   If sInstallPath = vbEmpty Then
>     WScript.Echo "Click to Convert is not installed correctly"
>     WScript.Quit 1
>   End If
>   sInstallPath = sInstallPath + "\Output\"
>
>   ' Access the Registry and set the conversion settings.
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\CreateHTML", 0, "REG_DWORD"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\CreatePDF", 1, "REG_DWORD"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\HTMLOutputPath", "", "REG_SZ"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\OpenHTML", 0, "REG_DWORD"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\OpenPDF", 1, "REG_DWORD"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\PDFFilename", "", "REG_SZ"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\ShowProgressUI", 1, "REG_DWORD"
>   oWS.RegWrite "HKEY_CURRENT_USER\Software\Inzone Software\Click to
> Convert\ShowUI", 0, "REG_DWORD"
>
>   sPath = arguments.Unnamed.Item(0)
>   WScript.Echo "MS Word file: " + sPath
>   WScript.Echo "PDF file: OriginalFileName.pdf, located in the following
> folder: " + sInstallPath
>
>   ' Create the MS Word automation object.
>   Set oWord = CreateObject("Word.Application")
>   oWord.Visible = True
>
>   ' Remember the existing printer so we can reset it.
>   sCurrentPrinter = oWord.ActivePrinter
>   oWord.ActivePrinter = "Click to Convert II"
>
>   ' Open the MS Word document and print it to the Click to Convert printer.
>   Set oDoc = oWord.Documents.Open(CStr(sPath))
>   oDoc.PrintOut False
>
>   ' Close the MS Word document and don't save changes - then
>   ' we also reset the printer back and close MS Word without
>   ' saving any changes.
>   oDoc.Close False
>   oWord.ActivePrinter = sCurrentPrinter
>   oWord.Quit False
>   Set oWord = Nothing
>
> End Function
>
>
>
> Call ConvertDocToPDF()
>
>
>