如何利用OpenOffice的功能把txt or doc or xls 轉.pdf檔?
1. OpenOffice 的 Writer [工具] -> [巨集] -> [組織對話]
選 [模塊] 頁籤
點 Module1 按編輯。
2. 把 REM *** Basic ***
Sub Main
End Sub 段,
置換為
REM ***** BASIC ***** 97.3.21

Sub ConvertWordToPDF(cFile)
cURL = ConvertToURL(cFile)

' 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), ))

cFile = Left(cFile, Len(cFile) - 4) ".pdf"
cURL = ConvertToURL(cFile)

' 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

3. 新資料夾
C:\TXT2PDF
4. 一個批次檔
cvt2pdf.bat
Rem cvt2pdf.bat %1 97.3.21
@ECHO OFF
"c:\program files\OpenOffice.org 2.2\program\soffice" -invisible "macro:///Standard.Module1.ConvertWordToPDF(%1)"
Rem 若您的OpenOffice是2.1版，就把2.2改成2.1。
5. 執行 C:\TXT2PDF
指令
cvt2pdf.bat myTest.txt

就可產生 myTest.pdf 。

------
What do we live for if not to make life less difficult for each other?