How is this related to my question? -aj
Am 9. Januar 2012 14:47 schrieb Fernand Vanrie <[email protected]>: > Tom, > With the API and some Basic code from the good old Danny B. can do the job > gives us a 65 pages writer Doc. > Hope its helps > > Greetz > > Ferand > > > > > Sub Main > oFF = createUnoService( "com.sun.star.document.**FilterFactory" ) > oFilterNames = oFF.getElementNames() > > ' Now print the filter names. > ' For i = LBound( oFilterNames ) To UBound( oFilterNames ) > ' Print oFilterNames(i) > ' Next > > ' 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 ) > > > > oText.insertString( oCursor, "Filter Names", False ) > oCursor.ParaStyleName = "Heading 1" > InsertParaBreak( oText, oCursor ) > oCursor.ParaStyleName = "Default" > InsertParaBreak( oText, oCursor ) > > ' Print the filter names into a Writer document. > For i = LBound( oFilterNames ) To UBound( oFilterNames ) > oText.insertString( oCursor, oFilterNames(i), False ) > InsertLineBreak( oText, oCursor ) > Next > InsertParaBreak( oText, oCursor ) > > > > InsertParaBreak( oText, oCursor ) > oText.insertString( oCursor, "Filter Names and their Properties", False > ) > oCursor.ParaStyleName = "Heading 1" > InsertParaBreak( oText, oCursor ) > oCursor.ParaStyleName = "Default" > > ' Tab stops at: > ' 0.25 inch (2.54 cm x 0.25) > ' 0.50 inch (2.54 cm x 0.50) > ' 2.00 inch (2.54 cm x 2.00) > oCursor.ParaTabStops = Array(_ > MakeTabStop( 2540 * 0.25 ),_ > MakeTabStop( 2540 * 0.50 ),_ > MakeTabStop( 2540 * 2.00 ) ) > > ' Print the filter names and their parameters. > For i = LBound( oFilterNames ) To UBound( oFilterNames ) > InsertParaBreak( oText, oCursor ) > > cFilterName = oFilterNames(i) > aFilterProps = oFF.getByName( cFilterName ) > > oText.insertString( oCursor, cFilterName, False ) > > For j = LBound( aFilterProps ) To UBound( aFilterProps ) > oFilterProp = aFilterProps(j) > > InsertLineBreak( oText, oCursor ) > oText.insertString( oCursor, CHR(9)+oFilterProp.Name, False ) > > nFilterPropValueVarType = VarType( oFilterProp.Value ) > If nFilterPropValueVarType = 8201 Then > ' VarType 8201 means a sequence of PropertyValue's. > oFilterPropNames = oFilterProp.Value > For k = LBound( oFilterPropNames ) To UBound( > oFilterPropNames ) > InsertLineBreak( oText, oCursor ) > oText.insertString( oCursor, CHR(9)+CHR(9)+** > oFilterPropNames(k).Name+CHR(**9)+CSTR(oFilterPropNames(k).**Value), > False ) > Next k > ElseIf nFilterPropValueVarType = 8200 Then > ' VarType 8200 means a sequence of Strings. > oFilterPropNames = oFilterProp.Value > For k = LBound( oFilterPropNames ) To UBound( > oFilterPropNames ) > InsertLineBreak( oText, oCursor ) > oText.insertString( oCursor, > CHR(9)+CHR(9)+**oFilterPropNames(k), > False ) > Next k > ElseIf nFilterPropValueVarType > 1 And > nFilterPropValueVarType <= 12 Then > oText.insertString( oCursor, CHR(9)+CSTR(oFilterProp.Value) > **, False ) > Else > oText.insertString( oCursor, CHR(9)+"?? unknown type ?? - > "+CSTR(**nFilterPropValueVarType), False ) > EndIf > Next j > > InsertParaBreak( oText, oCursor ) > Next i > > InsertParaBreak( oText, oCursor ) > End Sub > > Sub InsertLineBreak( oText, oCursor ) > oText.insertControlCharacter( oCursor, > com.sun.star.text.**ControlCharacter.LINE_BREAK, > False ) > End Sub > > Sub InsertParaBreak( oText, oCursor ) > oText.insertControlCharacter( oCursor, com.sun.star.text.** > ControlCharacter.PARAGRAPH_**BREAK, False ) > End Sub > > > ' Create and return a tab stop. > ' An array of what this function returns, is used > ' to set the tab stops of a paragraph. > ' > ' Parameters.... > ' nPosition - position in tab stop, in 1000'th of cm. > ' nAlign - optional, if specified, must be one of... > ' com.sun.star.style.TabAlign.**LEFT = 0 > ' com.sun.star.style.TabAlign.**CENTER = 1 > ' com.sun.star.style.TabAlign.**RIGHT = 2 > ' com.sun.star.style.TabAlign.**DECIMAL = 3 > ' com.sun.star.style.TabAlign.**DEFAULT = 4 > ' cDecimalChar - optional, if specified, only applies to a DECIMAL tab > stop, > ' and specified the character which is recognized as > ' the decimal point separator. > ' cFillChar - optional, if specified, specifies the char that fills the > space > ' between tab stops. > Function MakeTabStop( ByVal nPosition As Long,_ > Optional nAlign,_ > Optional cDecimalChar,_ > Optional cFillChar _ > ) As com.sun.star.style.TabStop > If IsMissing( nAlign ) Then > nAlign = com.sun.star.style.TabAlign.**LEFT > EndIf > > oTabStop = createUnoStruct( "com.sun.star.style.TabStop" ) > > oTabStop.Position = nPosition > oTabStop.Alignment = nAlign > > If Not IsMissing( cDecimalChar ) Then > oTabStop.DecimalChar = cDecimalChar > EndIf > If Not IsMissing( cFillChar ) Then > oTabStop.FillChar = cFillChar > EndIf > > MakeTabStop() = oTabStop > End Function > > > > > > > Hi :) >> >> All i could find was this wiki-page >> http://help.libreoffice.org/**Common/About_Import_and_**Export_Filters<http://help.libreoffice.org/Common/About_Import_and_Export_Filters> >> last updated in May so i think things are likely to have moved on quite a >> lot! Also i suspect there are add-ons/extensions that can add to the >> list. >> >> I tried looking up release notes >> http://www.libreoffice.org/**download/release-notes/<http://www.libreoffice.org/download/release-notes/> >> http://wiki.**documentfoundation.org/**ReleaseNotes/3.5<http://wiki.documentfoundation.org/ReleaseNotes/3.5> >> which led me to >> http://wiki.**documentfoundation.org/**Releases/3.4.4_info_about_**fixes<http://wiki.documentfoundation.org/Releases/3.4.4_info_about_fixes> >> but there is not much detail listed in there. mostly it seems >> broad-brushstrokes rather than fine-grained detail . >> >> Apols and regards from >> Tom :) >> >> -- >> View this message in context: http://nabble.** >> documentfoundation.org/Names-**of-output-filters-Name-of-** >> HTML-output-filter-**tp3639830p3644521.html<http://nabble.documentfoundation.org/Names-of-output-filters-Name-of-HTML-output-filter-tp3639830p3644521.html> >> Sent from the Users mailing list archive at Nabble.com. >> >> > > -- > For unsubscribe instructions e-mail to: [email protected].** > org <users%[email protected]> > Problems? http://www.libreoffice.org/**get-help/mailing-lists/how-to-** > unsubscribe/<http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/> > Posting guidelines + more: http://wiki.**documentfoundation.org/** > Netiquette <http://wiki.documentfoundation.org/Netiquette> > List archive: > http://listarchives.**libreoffice.org/global/users/<http://listarchives.libreoffice.org/global/users/> > All messages sent to this list will be publicly archived and cannot be > deleted > > -- For unsubscribe instructions e-mail to: [email protected] Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/ Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/global/users/ All messages sent to this list will be publicly archived and cannot be deleted
