使用OpenOffice .org(Portable)将WORD转换为ＰＤＦ

原文地址：

http://www.codeproject.com/Articles/15846/Converting-Microsoft-Word-Document-to-PDF-format-u

步骤：

1. 下载OpenOffice.org

       http://portableapps.com/apps/office/openoffice_portable

2.  配置OpenOffice.org

     1) 启动OpenOfficePortable.exe工具，不用注册（需要填写一些用户信息，但是不需要注册）

     2) 修改Marco标识

         a。选择“Tools->Macros->Organize Macros->OpenOffice.org Basic”              

         b。选择 "Organizer..."后创建一个新的tab Libraries,  并且命名为 "ConversionLibrary"

         c。创建完成后，切换至Modules tab, 选择 "ConversionLibrary", 创建一个新的模块并命名为 "PDFConversion"

         d。创建完成后，选择“PDFConversion”，然后选择“Edit”按钮，将以下代码拷贝进去

REM  *****  BASIC  *****
Sub ConvertWordToPDF( cSourceFile , cDestinationFile)
   cURL = ConvertToURL( cSourceFile )
   ' Open the document.
   ' Just blindly assume that the document
   ' is of a type that OOo will
   '  correctly recognize and open -- 
   '   without specifying an import filter.

   oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, _
          Array(MakePropertyValue( "Hidden", True ),) )

   cURL = ConvertToURL( cDestinationFile )
   
   ' Save the document using a filter.   
   oDoc.storeToURL( cURL, _
     Array(MakePropertyValue( "FilterName", "writer_pdf_Export" ),)
   
   oDoc.close( True )
End Sub

Function MakePropertyValue( Optional cName As String, _
         Optional uValue ) As com.sun.star.beans.PropertyValue
   Dim oPropertyValue As New com.sun.star.beans.PropertyValue
   If Not IsMissing( cName ) Then
      oPropertyValue.Name = cName
   EndIf
   If Not IsMissing( uValue ) Then
      oPropertyValue.Value = uValue
   EndIf
   MakePropertyValue() = oPropertyValue
End Function 

         e。至此，工具编辑完成。

         f。演示DEMO见如下地址

              http://download.csdn.net/detail/wangyong0921/4824679

        g。如果你命名的规则如上述步骤不一样（包括库名称，模块名称，Marco名称），那么你需要手动修改一下应用程序配置文件（UsingOpenOffice.exe.config）