Converting file formats using OpenOffice - Revision history

Dlk at 13:59, 31 December 2019

2019-12-31T13:59:51Z

Dlk at 19:37, 13 March 2010

2010-03-13T19:37:58Z

Dlk at 12:52, 13 March 2010

2010-03-13T12:52:24Z

Dlk at 16:03, 2 June 2009

2009-06-02T16:03:27Z

Dlk at 17:10, 29 May 2009

2009-05-29T17:10:47Z

Dlk at 16:27, 29 May 2009

2009-05-29T16:27:59Z

Dlk at 13:55, 29 May 2009

2009-05-29T13:55:56Z

New page

Stolen from Bob DuCharme at http://www.xml.com/lpt/a/1638

Create a ConvertFile macro in OpenOffice Tools -> Macros -> OrganizeMacros -> OpenOffice.org Basic:

[[Image:Macros.png]]

<pre>
' Based on code from http://www.oooforum.org/forum/viewtopic.phtml?t=3772

' Save document as an Acrobat PDF file.
Sub SaveAsPDF( 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

' Save document as a Microsoft Word file.
Sub SaveAsDoc( cFile )
' mostly a copy of SaveAsPDF
cURL = ConvertToURL( cFile )
oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, (Array(MakePropertyValue( "Hidden", True ),))

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

oDoc.storeToURL( cURL, Array(MakePropertyValue( "FilterName", "MS WinWord 6.0" ),)
oDoc.close( True )

End Sub

' Save document as a CSV file.
Sub SaveAsCSV( cFile )
' mostly a copy of SaveAsPDF
cURL = ConvertToURL( cFile )
oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, (Array(MakePropertyValue( "Hidden", True ),))

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

oDoc.storeToURL( cURL, Array(MakePropertyValue( "FilterName", "Text - txt - csv (StarCalc)" ),)
oDoc.close( True )

End Sub

' Save document as an OpenOffice 2 file.
Sub SaveAsOOO( cFile )
cURL = ConvertToURL( cFile )
oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, Array(MakePropertyValue( "Hidden", True ),))

' Set output file extension based on lower-case
' version of input extension.
Select Case LCase(Right(cFile,3))
Case "ppt" ' PowerPoint file.
cFileExt = "odp"
Case "doc" ' Word file.
cFileExt = "odt"
Case "xls" ' Excel file.
cFileExt = "ods"
Case Else
cFileExt = "xxx"
End Select

cFile = Left( cFile, Len( cFile ) - 3 ) + cFileExt
cURL = ConvertToURL( cFile )

oDoc.storeAsURL( cURL, Array() )
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

' Stolen from DannyB http://www.oooforum.org/forum/viewtopic.phtml?t=3549
' Lists all the possible filter names that could be used in a file converter
Function ListAllFilters
oFF = createUnoService( "com.sun.star.document.FilterFactory" )
oFilterNames = oFF.getElementNames()

' Create a Writer doc and save the filter names to it.
oDoc = StarDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, Array() )
oText = oDoc.getText()
oCursor = oText.createTextCursor()
oCursor.gotoEnd( False )

' Print the filter names into a Writer document.
For i = LBound( oFilterNames ) To UBound( oFilterNames )
oText.insertString( oCursor, oFilterNames(i), False )
oText.insertControlCharacter( oCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False )
Next
End Function
</pre>

From the command line, in Windows:
<pre>
"C:\Program Files\OpenOffice.org 2.0\program\soffice" -invisible macro:///Standard.MyConversions.SaveAsCSV(c:\temp\sample.xls)
</pre>

In Linux:
<pre>
ooffice2 -invisible "macro:///Standard.MyConversions.SaveAsCSV(/home/dlk/temp/sample.xls)"
</pre>

← Older revision		Revision as of 13:59, 31 December 2019
Line 124:		Line 124:
	soffice -invisible "macro:///Standard.MyConversions.SaveAsCSV(/home/dlk/temp/sample.xls)"		soffice -invisible "macro:///Standard.MyConversions.SaveAsCSV(/home/dlk/temp/sample.xls)"
	</pre>		</pre>
		+	[[Category:Linux]]

@@ Line 122: / Line 122: @@
 In Linux:
 <pre>
-ooffice -invisible "macro:///Standard.MyConversions.SaveAsCSV(/home/dlk/temp/sample.xls)"
+soffice -invisible "macro:///Standard.MyConversions.SaveAsCSV(/home/dlk/temp/sample.xls)"
 </pre>

← Older revision		Revision as of 16:03, 2 June 2009
Line 1:		Line 1:
−	~~Stolen~~ from Bob DuCharme at http://www.xml.com/lpt/a/1638	+	Also look at catdoc, which is available for *IX and with cygwin. There's a package for Fedora. Google Desktop search on Linux uses this to extract content for indexing of MS Office files (/opt/google/desktop/bin/extract_msoffice_content.sh).
		+
		+	But then ...
		+
		+	The following stolen from Bob DuCharme at http://www.xml.com/lpt/a/1638

	Create a ConvertFile macro in OpenOffice Tools -> Macros -> OrganizeMacros -> OpenOffice.org Basic:		Create a ConvertFile macro in OpenOffice Tools -> Macros -> OrganizeMacros -> OpenOffice.org Basic:

@@ Line 10: / Line 10: @@
 <pre>
 Sub SaveAsPDF( cFile )
     cURL = ConvertToURL( cFile )
@@ Line 49: / Line 46: @@
     cURL = ConvertToURL( cFile )
     oDoc = StarDesktop.loadComponentFromURL( cURL, "_blank", 0, (Array(MakePropertyValue( "Hidden", True ),))
     cFile = Left( cFile, Len( cFile ) - 4 ) + ".csv"