[Oo-discuss] Пакетный экспорт

[Rail Aliev]

И естественно недостающая функция :)

Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
    oPropertyValue = createUnoStruct( "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

----- "Rail Aliev" <rail на i-rs.ru> wrote:
> ----- "Maksim Otstavnov" <maksim на otstavnov.com> wrote:
> > Hello Anton,
> >
> > Friday, March 30, 2007, 12:12:05 PM, you wrote:
> >
> > AF> Максим, говорят что это можно сделать с помощью OOo. Как - не
> > знаю. Знаю
> > AF> что у нас в одном из проектов люди это смогли.
> >
> > И не рассказывают, как?
> 
> 
> Возможно будет обрыв треда - пишу через веб интерфейс. :(
> 
> Могу подать идею как это сделать
> 
> 1. В OOo добавляется следующий макрос:
> 
> Sub convertToPDF(strFile as string, strDestFile as string)
>     Dim oDoc as Object
>     Dim strFilterSubName as String
> 
>     strUrl = ConvertToUrl( strFile )
>     oDoc = StarDesktop.loadComponentFromURL( strUrl, "_blank", 0,
> array(MakePropertyValue("Hidden",true)))
> 
>     cURL = ConvertToURL( strDestFile )
> 
>     oDoc.storeToURL( cURL, Array( MakePropertyValue( "FilterName",
> "writer_pdf_Export" ) )
> 
>     oDoc.close(True)
> End Sub
> 
> OpenOffice.org запускается так:
> 
> openoffice.org-2.2 -writer
> 'macro:///standard.Module1.convertToPDF("file.odt", "file.pdf")'
> 
> 
> --
> Best regards,
> Rail Aliev
> www.i-rs.ru
> 
> _______________________________________________
> Oo-discuss mailing list
> Oo-discuss на openoffice.ru
> https://lists.openoffice.ru/mailman/listinfo/oo-discuss


-- 
Best regards,
Rail Aliev
www.i-rs.ru