OO Writer export szűrő beállítása

A konverzó a Mentés másként funkció indításával kezdeményezhető, az alábbi módon:
 
currcomp = ThisComponent
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
If HasUnoInterfaces(currcomp, "com.sun.star.frame.XStorable") Then
 If currcomp.hasLocation() Then
  If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
   GlobalScope.BasicLibraries.LoadLibrary("Tools")
  End If
  MyPath=DirectoryNameoutofPath(currcomp.getURL, "/")
  MyFileName=GetFileNameWithoutExtension(RetrieveFileName(currcomp))&".doc"
  dim args1(2) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "URL"
  args1(0).Value = MyPath+"/"+MyFileName
  args1(1).Name = "FilterName"
  args1(1).Value = "MS Word 97"
  dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1()) 
 Else
  Print "Ez a dokumentum még nem volt mentve!"
 End If
Else
 Print "Ez a dokumentum nem menthető"
End If
 
Az OpenOffice exportszűrők neveit alapértelmezett Windows telepítésnél itt találtam meg: C:Program FilesOpenOffice.org 2.1shareregistrymodulesorgopenofficeTypeDetectionFilter A Writer szűrői például a fcfg_writer_filters.xcu fájlban találhatók.
Reklámok

Vélemény, hozzászólás?

Adatok megadása vagy bejelentkezés valamelyik ikonnal:

WordPress.com Logo

Hozzászólhat a WordPress.com felhasználói fiók használatával. Kilépés / Módosítás )

Twitter kép

Hozzászólhat a Twitter felhasználói fiók használatával. Kilépés / Módosítás )

Facebook kép

Hozzászólhat a Facebook felhasználói fiók használatával. Kilépés / Módosítás )

Google+ kép

Hozzászólhat a Google+ felhasználói fiók használatával. Kilépés / Módosítás )

Kapcsolódás: %s