OpenOffice.info

Hallo,

ich möchte eine Datei öffnen um an den dort gespeicherten Ankern den Zelleninhalt einer calc Tablle einzufügen.

Dim myProp(0) as new com.sun.star.beans.PropertyValue
myProp(0).name="AsTemplate"
myProp(0).value = 0
url=converttourl("pfad des dokuments")
oDocument = StarDesktop ...

so hab jez hin und her gebastel und auch schon gute Erfolge gehabt aber irgendwie will es noch nicht so richtig..

Dokument öffnen funkt so oder ?
url=converttourl("C:\test.doc")
dim myFileProp as Object
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

und zu Anker ...

Ich habe hier nochmal dem code Kommentiert so wie ich es verstanden habe.


Sub Main
Dim S(0) as String
myDoc = ThisComponent
mySheet = myDoc.sheets(0)
mycellRange = ThisComponent.getCurrentSelection() 'lieber angewählte zelle oder zellenbereich (range, ranges)
For i = mycellRange ...

Ich hatte das mit dem link probiert ich wusste das mit der Klammer nur nicht. Sorry. Mir war auch gerade eingefallen das ich für S ja ein Feld nehmen kann aber irgendwie funktionierte das nicht

Sub Main
dim a(20) 'habe hier auch a() probiert
myDoc = ThisComponent
mySheet = myDoc.sheets(0 ...

Danke das bringt mich schon mal ein ganzes Stück weiter.
Ich brauche halt zb. den Bereich A4:N4. Das ganze soll dann abhängig davon sein, welche Zeile man gerade angewählt hat. Zb. Zeile 3210. Wie funktioniert das dann das statt dem A4:N4 A3210:N3210 wird? Ich kann ja die aktuelle Zelle auslesen und ...

Dim oDialog as Object 'globale dev des dialoges
Dim ODoc as Object 'das dokument
dim oZelle as Object 'die zelle
dim oZelle2 as Object

Sub MarkierteZeileKopieren
'DialogLibraries.LoadLibrary("Standard")

oDoc = thisComponent
oZelle = oDoc.getCurrentSelection()
oZelle2 = oDoc ...

hi

ich muss eine excel tabelle in calc umarbeiten da wir auf oO umstellen.

hier der vba code
-------------------------------------------------------------------------------------

Sub MarkierteZeileKopieren()

Dim Cr As Long, CC As Integer
Dim Projektnummer As Object
Dim appWD As New Word ...