User:Stefanw/Tipps/Allgemein/OOo mit VBA steuern

User-Bereich von Stefan Weigel

Seiten im User-Bereich: Startseite Werkstatt Deutsche Downloadseite 3.1.1 Release Blockers Date Issue Calc Testcases Sorting DD Issues Calc Anwenderfrühstück OOo-Info-Tag Passau www.datenpilot.org Vortrag Chemnitz 2010 Vortrag Graz 2010 Linuxwochen Wien 2009 Grazer Linuxtage 2009 Linuxwochen Wien 2008 OOo Conference 2010 Tipps Gleitender Durchschnitt OOo mit VBA steuern Archiv Vorschlag VHS Verzeichnis Neue Interaktive Support-Seiten Screenshots für OOo 3 (deutsch) Kleines Pressepaket Seiten von Stefan im OOo-Wiki: Marketing OOo richtig bewerben Brainstorm Warum OOo Übersetzung Why Ooo YourChoice-Übersetzung YourChoice-Kritik Statistik Mailingliste Ungute Werbung durch Sun Referenzkundenseite Success Story: Buchprojekt Makro Fax mit OOo und Fritz!Fax Timestamp in Calc Dokumente Fortgeschrittene Installation Wissenschaftliche Arbeiten UebersetzungSolver Artikel zum Solver Bearbeiten...

Frage von Ralf Deing auf der Users-Mailingliste:

Ich übergebe aus einer MSAccess Datenbank Werte per VBA über
Platzhalter an MSWord. Nun würde ich das gleiche aber lieber
an OpenOffice Writer machen. Hat jemand schon so was gemacht?
Hat jemand Infos über Objektvariablen usw. So das ich das per
Latebinding einbinden kann.

Beispiel einer VBA-Prozedur, die in OOo Writer ein Textdokument öffnet und dort Text hineinschreibt:

Sub test()

    Dim objServiceManager As Object
    Dim objDesktop As Object
    Dim objDocument As Object
    Dim objText As Object
    Dim objCursor As Object
    Dim args()

    'The service manager is always the starting point
    'If there is no office running then an office is started up
    Set objServiceManager = CreateObject("com.sun.star.ServiceManager")

    'Create the Desktop
    Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

    'Open a new empty writer document
    Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)

    'Create a text object
    Set objText = objDocument.getText

    'Create a cursor object
    Set objCursor = objText.createTextCursor

    'Inserting some Text
    objText.insertString objCursor, "The first line in the newly created text document." & vbLf, False

End Sub

Weitere Info über Automation von OOo gibt es hier und beim API-Projekt von OOo.

Stefan Weigel 23:30, 5 November 2008 (CET)