Anton_erhard schrieb:
Von Anton Erhard
Hallo,
wenn ich mit folgendem Basic-Code im Writer (Office 2,4 oder auch Office
3.0)
function gehezu(Marke as string,Einfuegung as string)
dim oBookmark as object
dim oCur as object
dim textmarke as string
on error goto ErrorHandler
oBookmark=ActiveDocument.getBookmarks().getByName(Marke)
Rem ActiveDocument ist als globales Objekt definiert.
textmarke=oBookmark.Name
oCur=ActiveDocument.Text.createTextCursorbyRange(oBookmark.getAnchor().getEn
d())
oCur.string=Einfuegung
exit function
ErrorHandler:
MsgBox "Fehler " & Err & ": " & Error$ + chr(13) + "In Zeile : " + Erl +
chr(13) + Now , 16 ,"Fehler aufgetreten"
End function
eine Bookmark in einer Tabelle anspringen und Text einfügen möchte erhalte
ich beim Ansprung grundsätzlich folgende Fehlermeldung:
Fehler: 1 Es ist eine Exception aufgetreten.
Type: com.sun.star.uno.RuntimeExecption
Message: .
Beim Ansprung mit dem Navigator erfolgt kein Fehler.
Woran kann das liegen?
Keine Ahnung....
Ich mache das so...
sub TabGehezuMarke(Marke as string,ersetze as string)
dim document as object
rem Dokument referenzieren
oDocument=ThisComponent
oSheet=oDocument.Sheets.getByIndex(0)
oCell=oSheet.getCellRangeByName(Marke)
'oCell.setValue(100)
'oCell.NumberFormat=2 '23658.00
oCell.Setstring(ersetze)
'oCell.setFormula("=FUNCTION()")
'oCell.IsCellBackgroundTransparent = TRUE
'oCell.CellBackColor = RGB(255,141,56)
End Sub
viel Spass noch damit...
Volker
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
