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