OpenOffice.info

hallo,

ich traue es mir garnicht zu sagen :shock: , aber es lag an der Rechtschreibung.


Danke.

Vg
Martin

Hallo,

Liegt es vielleicht an der Rechtschreibung?

[quote="ROM"]Kurzeichen[/quote]

Kur[color=#FF0000]zz[/color]eichen :wink:

Jürgen

objTextmarke = objDatei.Bookmarks.getByName("Kurzeichen")

Hallo Jürgen,

danke für deine Antwort.

leider bekomme ich bei folgenden Code:

[code]
objTextmarke = objDatei.Bookmarks.getByName("Kurzeichen")
[/code]

immer noch die oben beschrieben Fehlermeldung :(

Vg
Martin

objTextmarke = objDatei.objBookmarks.getByName("Kurzeichen")

objTextmarke = objDatei.Bookmarks.getByName("Kurzeichen") 

for Tabellenzaehler = 1 to (Zahl - 1)

for Tabellenzaehler = 0 to (Zahl - 1)

Hallo Martin,

da hast Du es zu gut gemeint. Tausche mal [code]objTextmarke = objDatei.objBookmarks.getByName("Kurzeichen")[/code]
gegen [code]objTextmarke = objDatei.Bookmarks.getByName("Kurzeichen") [/code]aus.

Und wo wir schon mal dabei sind:
[code]for Tabellenzaehler = 1 to (Zahl - 1)[/code]gegen

[code]for Tabellenzaehler = 0 to (Zahl - 1)[/code]sonst wird die erste Tabelle im Dokument nicht gefunden.


Jürgen

Sub AutofillFeldbefehl() 
	
	Dim strTextMarken as String
	Dim objDatei as Object
	Dim objCursor as Object
	Dim objBookmarks as Object
	Dim objBookmark as Object
	Dim objAnchor as Object
	Dim objTextmarke as Object
	Dim Zahl as Integer
	Dim TextTables as Object	
	objDatei = ThisComponent
	
	'*******************************************************************
	'* Nach Textmarke in Tabellenvorlage suchen
	'*
	'********************************************************************
	 
	TextTables = objDatei.getTextTables()	
	Zahl = TextTables.count()
	   	
   	for Tabellenzaehler = 1 to (Zahl - 1)
   		Table = TextTables(Tabellenzaehler)		
   	on Error GoTo Fehler
   		objTextmarke = objDatei.objBookmarks.getByName("Kurzeichen")
   		objBookmark = objDatei.getBookmarks().getByName("Kurzeichen").getAnchor
   		if not isEmpty(objBookmark.TextTable) then
   			objCursor = objBookmark.Text.CreateTextCursorByRange(objTextmarke.Anchor)
   			objCursor.String = InputBox("Kurzzeichen: ")
   		end If
   	next Tabellenzaehler
   	Fehler:
   		msgBox "Die Textmarke könnte nicht gefunden werden"	
	
end sub

Hallo,

ich habe wiedermal ein Problem mit Textmarken :-(

Ich habe in einer Textdokumentvorlage mehrere Tabellen. In einigen Zellen ist eine Textmarke hinterlegt. Die Tabellen sind von der Struktur her unterschiedlich. Bei einigen Tabellen sind auch die Zeilen bzw. Spalten miteinander verbunden. Ich habe nun versucht diese Textmarken mit folgendem Code anzusprechen:

[code]
Sub AutofillFeldbefehl()

Dim strTextMarken as String
Dim objDatei as Object
Dim objCursor as Object
Dim objBookmarks as Object
Dim objBookmark as Object
Dim objAnchor as Object
Dim objTextmarke as Object
Dim Zahl as Integer
Dim TextTables as Object
objDatei = ThisComponent

'*******************************************************************
'* Nach Textmarke in Tabellenvorlage suchen
'*
'********************************************************************

TextTables = objDatei.getTextTables()
Zahl = TextTables.count()

for Tabellenzaehler = 1 to (Zahl - 1)
Table = TextTables(Tabellenzaehler)
on Error GoTo Fehler
objTextmarke = objDatei.objBookmarks.getByName("Kurzeichen")
objBookmark = objDatei.getBookmarks().getByName("Kurzeichen").getAnchor
if not isEmpty(objBookmark.TextTable) then
objCursor = objBookmark.Text.CreateTextCursorByRange(objTextmarke.Anchor)
objCursor.String = InputBox("Kurzzeichen: ")
end If
next Tabellenzaehler
Fehler:
msgBox "Die Textmarke könnte nicht gefunden werden"

end sub

[/code]

Die Funktion führt immer die Prozedur "on Error GoTo" aus bzw. wenn ich es auskommentiere, bekomme ich folgende Meldung:

Basic - Laufzeitfehler
.....
Type: com.sun.star.container.NoSuchElementException
Message .

Habe ich in meinem Programmcode etwas übersehen?

Danke für Eure Hilfe!

VG
Martin