----- "Maksim Otstavnov" <[EMAIL PROTECTED]> 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
[email protected]
https://lists.openoffice.ru/mailman/listinfo/oo-discuss
