aus Writer Makro in Calc Tabelle schreiben

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: aus Writer Makro in Calc Tabelle schreiben

Re: aus Writer Makro in Calc Tabelle schreiben

von F3K Total » Mi, 26.02.2014 18:39

Moin,
angenommen, du möchtest einen in einer Writer-Datei markierten Text in die Calc-Datei mit dem Namen MeineCalcDatei.ods schreiben.
Der markierte Text soll in Spalte A der Tabelle1 in die erste leere Zelle, ab Zeile 2 geschrieben werden.
Dann
  • Öffne die Calc Datei
  • Öffne die Writer-Datei
  • Markiere in der Writer Datei ein Stück Text
  • Führe das Makro S_insert_into_calc einmal aus

Code: Alles auswählen

Sub S_insert_into_calc
    sMeinMarkierterText = thiscomponent.currentselection(0).string
    oCalcDoc = F_get_CalcDocument("MeineCalcDatei.ods")
    oSheet =  oCalcDoc.Sheets.getbyname("Tabelle1")
    oColumn = oSheet.columns.getbyname("A")
    nCounter = 1
    do 
        ocell = oColumn.getcellbyposition(0,nCounter)
        nCounter = nCounter + 1
    loop until ocell.Type = com.sun.star.table.CellContentType.EMPTY
    ocell.String = sMeinMarkierterText
End Sub

function F_get_CalcDocument(sTitle) as Object
    oComponentenumeration = Stardesktop.Components.createEnumeration
    while oComponentenumeration.hasmoreelements
        ocomponent = oComponentenumeration.nextelement
        if ocomponent.title = sTitle then
            F_get_CalcDocument = ocomponent
        endif
    wend
end function
HTH Gruß R

Nach oben