Makro: writerDoc aus Calc erzeugen
Verfasst: Sa, 23.12.2006 16:42
Hallo,
für ein ehrenamtliches Projekt zur Verwaltung einer Mängelliste bei Radwegen bräuchte ich einen Schnelleinstieg bzw. Markro-basic-Code-Beispiele.
mein Hintergrund: ehemaliger VBA profi, OOo 2.04 (winXP/2000)-Anfänger.... und ich vermisse den Objekatalog in der IDE und die entsprechende Funktionlität... auch ein Beispiel bei ...dannenhoefer.de ist nicht hinreichend....
Anwendung:
aus einer calc-Tabelle soll zur aktiven Zeile ein Einzelfall-Dokument aus einer Vorlage erzeugt werden und gleich in der aktiven Zelle als hyperlink eingefügt werden ... also etwa so oder ähnlich(Pseudocode)
if activeDocument.sheets.activeCell.column= X then
oDoc=createNewObject (docType = writer; template="myTemplate")
strName =newName( cell(x,y)) REM Namenskonstruktion aus Zellwert
oDoc.saveAs("myPath" & strName)
activeDocument.sheets.activeCell.insert("myPath" & strName; type=hyperlink)
else
msgbox....
endif
entschuldigung - wäre schön auch mit:
oDoc.textName("xyz").text = activeSheet.Cell(x,y).value......
Brauche ich das SDK, Unterschiede API 2.04 zu 1.xx ?
welches Ereignis entspricht "activeSheet.Change" oder "activeCell.change"
Herzlichen Dank für Hilfen und weihnachtliche Grüße
Karl
für ein ehrenamtliches Projekt zur Verwaltung einer Mängelliste bei Radwegen bräuchte ich einen Schnelleinstieg bzw. Markro-basic-Code-Beispiele.
mein Hintergrund: ehemaliger VBA profi, OOo 2.04 (winXP/2000)-Anfänger.... und ich vermisse den Objekatalog in der IDE und die entsprechende Funktionlität... auch ein Beispiel bei ...dannenhoefer.de ist nicht hinreichend....
Anwendung:
aus einer calc-Tabelle soll zur aktiven Zeile ein Einzelfall-Dokument aus einer Vorlage erzeugt werden und gleich in der aktiven Zelle als hyperlink eingefügt werden ... also etwa so oder ähnlich(Pseudocode)
if activeDocument.sheets.activeCell.column= X then
oDoc=createNewObject (docType = writer; template="myTemplate")
strName =newName( cell(x,y)) REM Namenskonstruktion aus Zellwert
oDoc.saveAs("myPath" & strName)
activeDocument.sheets.activeCell.insert("myPath" & strName; type=hyperlink)
else
msgbox....
endif
entschuldigung - wäre schön auch mit:
oDoc.textName("xyz").text = activeSheet.Cell(x,y).value......
Brauche ich das SDK, Unterschiede API 2.04 zu 1.xx ?
welches Ereignis entspricht "activeSheet.Change" oder "activeCell.change"
Herzlichen Dank für Hilfen und weihnachtliche Grüße
Karl