OpenOffice.info

Hallo DPunch,

danke für deinen Kommentar und den Hinweis auf Xray. Du machst mich neugierig. Xray-Variante 5.2en, vermute ich, wäre richtig. Werde mal schauen.

MfG Mr.Ed

Aloha

[quote="Mr.Ed"]Ist man hier im Forum eher genervt von Fragen wie meiner?[/quote]
Aus meiner Sicht absolut nicht und ich denke, da geht es eigentlich allen Hilfsbereiten hier so.
Solange Du eine eindeutige Problemstellung hast, am Besten einen entsprechenden Codeausschnitt dazu postest und Dir selber Gedanken machst, gibt es auch rein gar nichts zu meckern.
Gerade bei logischen Fehlern im Code, die man als Einsteiger möglicherweise schonmal übersiehst, bringt Dich vermutlich auch stundenlanges Suchen nicht weiter, wenn es denn überhaupt möglich ist, eine sinnvolle Suchphrase dafür zu formulieren.

Abgesehen davon lege ich Dir von vornherein schonmal das Tool [url=http://bernard.marcelly.perso.sfr.fr/index2.html]Xray[/url] zu Herzen.
Auf Dauer ein absolutes Muss für die Makro-Programmierung und mit Sicherheit behilflich bei allerlei Fehlern, die Du vielleicht nicht sofort einordnen kannst.

	n = 1
	oSuchErg = oDoc.findFirst(oSuche)
	Do While Not isNull(oSuchErg)
		sText = oSuchErg.String
		sName = Mid(sText, 7)
		iRest = InStr(sName, " Datum")
		sName = Left(sName, iRest-1)	' sName ist jetzt z.B. "Laura5"
		aNamen(n) = sName
		n = n + 1
		oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
	Loop

Hallo DPunch,

schwupps, das ging ja schnell, vielen Dank! Es klappt jetzt. Habe den Code so verändert:

[code] n = 1
oSuchErg = oDoc.findFirst(oSuche)
Do While Not isNull(oSuchErg)
sText = oSuchErg.String
sName = Mid(sText, 7)
iRest = InStr(sName, " Datum")
sName = Left(sName, iRest-1) ' sName ist jetzt z.B. "Laura5"
aNamen(n) = sName
n = n + 1
oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
Loop[/code]

Kleinigkeit noch, weil ich hier neu bin: Ist man hier im Forum eher genervt von Fragen wie meiner? Oder ist das weiter kein Problem?

Ich kenne ja die Regel: Erst lesen, dann fragen! Daran halte ich mich normalerweise auch. Nur manchmal habe ich das Gefühl, dass eine Lösung ganz einfach sein könnte. Wenn also das Problem sich eingrenzen und vernünftig beschreiben lässt, bekomme ich möglicherweise ganz schnell eine Antwort. Alternativ: Wenn ich anfange zu lesen, sitze ich stundenlang und habe hinterher noch nicht einmal das Gefühl, wenigstens so nebenher etwas gelernt zu haben.

MfG Mr.Ed

  (...)
  oSuchErg = oDoc.findNext(oSuchErg.End, oSuche) '<------- wird irgendwann NULL, wenn es keine weiteren Ergebnisse gibt
  sText = oSuchErg.String  '<------- Zugriff auf NULL
  n = n + 1
Loop

  (...)
  sText = oSuchErg.String
  oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
  n = n + 1
Loop

Aloha

[quote="Mr.Ed"]Meine Frage: Warum produziert in folgendem Code die Zeile "sText = oSucheErg.String" den Kommentar "BASIC-Laufzeitfehler. Objektvariable nicht belegt."? Außerhalb der Schleife funktioniert die Zuweisung ja.[/quote]
Weil oSuchErg immer, wenn es mindestens ein Ergebnis gibt, in der Schleife irgendwann NULL wird, Du aber danach noch darauf zugreifen willst.

[code] (...)
oSuchErg = oDoc.findNext(oSuchErg.End, oSuche) '<------- wird irgendwann NULL, wenn es keine weiteren Ergebnisse gibt
sText = oSuchErg.String '<------- Zugriff auf NULL
n = n + 1
Loop[/code]
Das .findNext(...) musst Du ans Schleifenende (bzw. hinter den letzten Zugriff auf die Variable oSuchErg) stellen, damit die Überprüfung im Schleifenkopf auch direkt durchgeführt wird
[code] (...)
sText = oSuchErg.String
oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
n = n + 1
Loop[/code]

	oSuchErg = oDoc.findFirst(oSuche)
	sText = oSuchErg.String
	n = 1
	Do While Not isNull(oSuchErg)
		sName = Mid(sText, 7)
		iRest = InStr(sName, " Datum")
		sName = Left(sName, iRest-1)	' sName ist jetzt z.B. "Laura5"
		aNamen(n) = sName
		oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
		sText = oSuchErg.String
		n = n + 1
	Loop

Hallo zusammen,

versuche alte WORD5-Makros auf ooO-Basic umzuschreiben. Muss noch viel lernen (geistes- und gesellschaftswiss. vorgepägt). Orientiere mich an dem Buch von Thomas Krumbein. Meine Frage: Warum produziert in folgendem Code die Zeile "sText = oSucheErg.String" den Kommentar "BASIC-Laufzeitfehler. Objektvariable nicht belegt."? Außerhalb der Schleife funktioniert die Zuweisung ja.

[code] oSuchErg = oDoc.findFirst(oSuche)
sText = oSuchErg.String
n = 1
Do While Not isNull(oSuchErg)
sName = Mid(sText, 7)
iRest = InStr(sName, " Datum")
sName = Left(sName, iRest-1) ' sName ist jetzt z.B. "Laura5"
aNamen(n) = sName
oSuchErg = oDoc.findNext(oSuchErg.End, oSuche)
sText = oSuchErg.String
n = n + 1
Loop[/code]

Die Antwort ist vielleicht, wie so oft, ganz einfach, ich komm' nur nicht drauf. Weiß jemand was? Wäre schön!

MfG Mr.Ed