Textmarke in Tabelle (Writer) wird nicht gefunden
Verfasst: Mi, 31.03.2010 16:42
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:
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
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: Alles auswählen
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
Basic - Laufzeitfehler
.....
Type: com.sun.star.container.NoSuchElementException
Message .
Habe ich in meinem Programmcode etwas übersehen?
Danke für Eure Hilfe!
VG
Martin
, aber es lag an der Rechtschreibung.