Re: dávková konverze z odg do rastr u - druhý pokus

[Jirka Novak]

Dobry den,

mám tu 148 .odg obrázků, které potřebuji zkonvertovat do rastru a natáhnout do mobilu coby obrázky volajících. Cílem je mít při zvonění telefonu jméno volajícího napsané co největším písmem, o což se umí výborně postarat Fontwork. A tak jsem vyrobil šablonu o rozměrech stránky 16x12 cm, dal jí černý podklad a na celou velikost stránky roztáhl objekt obsahující bílý text, napsaný díky Fontworku největším možným písmem. No jo, ale jak to zkonvertovat, abych to mohl v mobilu přiřadit ke kontaktům? Nebo víte o jiném způsobu, jak docílit téhož výsledku bez přílišné náročnosti na můj velmi slabý zrak?

nevim, zda Vam to pomuze...







                                        S pozdravem,

                                                Jiri Novak

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script"; script:name="Conversions" script:language="StarBasic">REM  *****  BASIC  *****

&apos; Save document as an Acrobat PDF file.
Sub SaveAsPDF( cFile , Optional postfix)
   cURL = ConvertToURL( cFile )
   &apos; Open the document. Just blindly assume that the document
   &apos; is of a type that OOo will correctly recognize and open
   &apos; without specifying an import filter.
   oDoc = StarDesktop.loadComponentFromURL( cURL, &quot;_blank&quot;, 0, _
            Array(MakePropertyValue( &quot;Hidden&quot;, True ),))

   If IsMissing( postfix ) Then
      postfix = &quot;&quot;
   EndIf

   cFile = Left( cFile, Len( cFile ) - 4 ) + postfix + &quot;.pdf&quot;
   cURL = ConvertToURL( cFile )

   &apos; Save the document using a filter.
   oDoc.storeToURL( cURL, Array(_
            MakePropertyValue( &quot;FilterName&quot;, &quot;writer_pdf_Export&quot; ),)

   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


</script:module>

Resil jsem podobny problem s prevodem OO do PDF - v ramci automatickeho sestavovani dokumentace. Napsal jsem kratke makro, ktere pak volam z prikazove radky. Makro si vezme soubor, otevre ho a ulozi jako PDF (vysledek se jmenuje SOUBOR_public, proto to _public pri spousteni). Prizpusobeni pro Vase ucely by nemelo byt tezke. Makro je treba nejdrive rucne do OO nahrat/pripojit. V ramci automatizace je to mozne take nascriptovat, ale to ted nepotrebujete. Pokud je treba slozitejsich operaci (pisete neco o rameccich apod.) je mozne si zaznamenat provedene operace jako makro - OO si "nahraje" akce. Vysledek par rucne projit a upravit - asi zmenit pevne jmeno souboru za promennou apod. A pak volat z radky, podobne jako muj export do PDF. V priloze je potrebne makro 2RingConversions.xba a unixovy script, ktery provede konverzi. Pokud pracujete na Windows, je treba prepsat - ale opet je videt idea, jak na to.

convertOOToPDF.sh
Description: Bourne shell script

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@cs.openoffice.org
For additional commands, e-mail: users-h...@cs.openoffice.org