OpenOffice.info

[quote="Toxitom"]Hey savage,

dieser Post gehört aber in das Basic-Forum....

Also, hier machst du etwas mit den Arrays falsch. Ein Array muss vor der Benutzung definiert werden -. auch mit seiner Größenangabe. Um dann die Größe zu verändern, musst du den Befehl "redim" verwenden, dabei werden aber alle Daten gelöscht, es sei denn du verwendest den Parameter "preserve". Dein Code müsste also heissen (wenn ich da richtig interpretiere...):

Gruss
Thomas[/quote]

Danke für den hinweis - ich bin allerding nicht in der Lage selbst zu programmieren. Es handelte sich bei meinem "Zitat" um einen Auszug aus dem mit OpenOffice ausgelieferten Assistenten "Dokumenten Konverter", der diese Fehlermedlung wie von mir beschrieben ausgibt. Ich ware es nicht, einfach ein oder zwei Zeilen darin auszuwechseln
Aber vielleicht geht die Mitteilung über dieses Problem ja an die Entwickler von OpenOffice, damit sie sich bei weiteren Überarbeitungen damit auseinandersetzen.

Nett gemeint von Dir, aber ich traue mir nicht zu, den Konverter selbst "umzubasteln"

Danke

Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
Dim i as Integer
Dim a as Integer
dim BigArray()   'array definieren
a = 0
For i = StartResIndex To StartResIndex + Count-1
   redim preserve BigArray(a) = GetResText(i)  'Arraygröße erweitern
   a = a + 1
Next
End Sub 

Hey savage,

dieser Post gehört aber in das Basic-Forum....

Also, hier machst du etwas mit den Arrays falsch. Ein Array muss vor der Benutzung definiert werden -. auch mit seiner Größenangabe. Um dann die Größe zu verändern, musst du den Befehl "redim" verwenden, dabei werden aber alle Daten gelöscht, es sei denn du verwendest den Parameter "preserve". Dein Code müsste also heissen (wenn ich da richtig interpretiere...):
[code]Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
Dim i as Integer
Dim a as Integer
dim BigArray() 'array definieren
a = 0
For i = StartResIndex To StartResIndex + Count-1
redim preserve BigArray(a) = GetResText(i) 'Arraygröße erweitern
a = a + 1
Next
End Sub [/code]

Gruss
Thomas

Hallo,
ich habe versucht, den Assisten "Dokumenten-Konverter" zu nutzen. Beim Aufruf erhalte ich folgende Fehlermeldung: "Unzulässiger Wert oder Dateityp. Index außerhalb des definierten Bereichs". Angemeckert wird im Makro folgende Sequenz:

Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
Dim i as Integer
Dim a as Integer
a = 0
For i = StartResIndex To StartResIndex + Count-1
BigArray(a) = GetResText(i)
a = a + 1
Next
End Sub

Darin die Zeile: BigArray(a) = GetResText(i)

Alles im so.g Import Wizard

Wer kann mir helfen? :?: