OpenOffice.org/API/Operacje na plikach
< OpenOffice.org | API
Niezbędne definicje i deklaracje
edytujDim oSM Dim oDesk, oDoc As Object Dim arg() Set oSM = CreateObject("com.sun.star.ServiceManager") Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Tworzenie nowego dokumentu
edytujOtwiera nowy, pusty dokument w module Writer (Dokument tekstowy) do edycji. Dokument ten nie musi mieć zdefiniowanego formatu pliku przy otwarciu. Jest to standardowy szablon pustego dokumentu tekstowego.
By komenda zadziałała niezbędne jest umieszczenie podstawowych definicji (powyżej)
Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg())
Otwieranie dokumentu
edytujOtwiera do odczytu lub/i edycji plik o podanej w argumencie lokalizacji i nazwie. Jeżeli plik nie istnieje program wyświetla komunikat o błędzie działania skrpytu. Zalecane jest wcześniejsze sprawdzenie obecności fizycznej pliku pod podaną lokalizacją.
Set oDoc = oDesk.loadComponentFromURL("file:///c:/test.doc", "_blank", 0, arg())
Zapisywanie dokumentu
edytujZapisuje otwarty dokument tekstowy pod nazwą i lokalizacją podaną w pierwszym argumencie. Rozpoznanie formatu pliku do zapisu następuje na podstawie podanego w nazwie pliku rozszerzenia.
Call oDoc.storeToURL("file:///c:/test2.sxw", arg())
Zamykanie dokumentu
edytujoDoc.Close (True) Set oDoc = Nothing