Domino 9 und frühere Versionen > Entwicklung

Formatierungen mit Lotus Skript

<< < (2/3) > >>

Rob Green:
ich verstehe die Frage nicht ganz..

oben ist ja ein Beispiel

Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "ProjectDescription" )
If rtitem.Type = RICHTEXT Then
  Call rtitem.AddNewLine( 1 )
  Call rtitem.AppendText( "Book is 64 pages, full color." )
End If
Call doc.Save( False, True )

statt "Book is 64 pages..:" kann man auch
Variable_Variant = doc.feld(0)
Variable_Schtring = Cstr(Variable_Variant)
Call rtitem.AppendText( Variable_Schtring )
"machen"....ist nur mal ne Spielart wie man mit Variablen arbeitet.

Ich glaube aber, Du meinst bestimmt was anderes.

Obrac:
Ich habe es so gemacht und bekomme in der letzten Zeile nen "Object Variable not set". Das rtitem soll das Feld "Body" der Maske "Memo" sein.

vCategories = doc.Categories(0)
sCategories=Cstr(vCategories)
Call rtitem.AppendText (sCategories)

ata:
... ich verwende i.d.R. folgendes Konstrukt

Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim rtItem As NotesRichTextItem

Set docThis = ws.CurrentDocument.Document
Set rtItem = docThis.GetFirstItem("Body")
If rtItem.Type = 1 Then
    ' # hier kommt der Code zur Bearbeitung des Richtextfeldes

End If


... das klappt bei mir bislang ohne Probleme...


ata

Obrac:
OK, danke erstmal, ich habs inzwischen geschafft. Nun stehe ich aber vor einem anderen Problem. Wenn ich das Feld "Body" fülle, entsteht ein automatischer Zeilenumbruch, wenn die Zeile zu lang wird. Das will ich jedoch nicht. Hat jemand eine Idee, wie man einen automatischen Zeilenumbruch verhindern kann?

Rob Green:
nur ne Schnappsidee...bau ne Tabelle mit fixer Fensterbreite ein...und schreib in die Tabellenzelle Deinen Text.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete