Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

EXCEL-Text mit Script formatieren

(1/1)

bezi27:
Hallo,

ich habe ein ganz spezielles Problem (Notes 7) und trotz aller Versuche bin ich bisher auf keinen grünen Zweig gekommen.
Daher hoffe ich, dass mir hier ein Experte weiterhelfen kann:

Ich erstelle und befülle eine Tabelle im EXCEL über Script.
Dabei werden auch Zellen in dieser Tabelle verbunden und mit Text befüllt.
so weit, so gut.

Aber:
Ich möchte einen Teil des Textes in dieser Zelle fett schreiben.
Im EXCEL funktioniert das ja auch ganz gut, aber das Script lässt den Syntax nicht zu!

Im Excel schaut das so aus (Beispiel):

ActiveCell.FormulaR1C1 = _
        "erste Zeile - Standardschrift." & Chr(10) & "Zweite Zeile - ebenso." & Chr(10) & "" & Chr(10) & "Dritte Zeile - die ist jetzt fett geschrieben." & Chr(10) & "" & Chr(10) & "Vierte "
    With ActiveCell.Characters(Start:=1, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=56, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range(Selection, Cells(ActiveCell.Row, 1)).Select
    ActiveCell.FormulaR1C1 = _
        "erste Zeile - Standardschrift." & Chr(10) & "Zweite Zeile - ebenso." & Chr(10) & "" & Chr(10) & "Dritte Zeile - die ist jetzt fett geschrieben." & Chr(10) & "" & Chr(10) & "Vierte Zeile - wieder Standardschrift."
    With ActiveCell.Characters(Start:=1, Length:=55).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=56, Length:=48).Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=104, Length:=38).Font
        .Name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Im Script ist es aber leider nicht möglich, die Anweisung "Start := " zu geben - hier wird immer ein Fehler angezeigt.

Weiß jemand eine alternative Schreibweise fürs EXCEL?

Vielen Dank im Voraus!

bezi27

bezi27:
Uuuuuuuuuuuuuups - sorry!

Nachdem ich in diesem Forum schon mal fürchterlich geschimpft wurde, weil ich mich mit dem Nickname verabschiedet habe, hier die Korrektur: ;)

Vielen Dank im Voraus

Bettina

Werner Götz:
Lotusscript unterstützt bei Funktionsaufrufen keine benannten Parameter. Also muss statt

--- Code: ---ActiveCell.Characters(Start:=56, Length:=55)
--- Ende Code ---
aus Lotusscript

--- Code: ---ExcelApplication.ActiveCell.Characters(56, 55)
--- Ende Code ---
geschrieben werden. ExcelApplication ist hier die Variable für das Excel-Application-Objekt.

Hierbei ggf. in der Excel-Dokumentation die richtige Reihenfolge der Parameter sicherstellen. Das ist nämlich der Vorteil bei benannten Parametern: Man muss sich nicht um die Reihenfolge der Parameter kümmern.

-Werner

bezi27:
Lieber Werner,

allerherzlichsten Dank - die schlaflosen Nächte sind vorbei, Problem gelöst.
Funktioniert super.  ;D

merci nochmals

Bettina

Axel:
Noch mehr infos zu dem Thema findest du hier: http://atnotes.de/index.php/topic,39862.0.html

Axel

Navigation

[0] Themen-Index