"Infobrief-Zusammenfassung senden" - als LS ?

[koehlerbv]

Oh Mann, Bernhard, Du ließt also doch aufmerksam alles was ich schreibe...

Aber Du nicht, was ich schreibe ...

Bernhard

[Bruce Willis]

Setze jeden Tab, den Du haben willst:
Call notesRichTextParagraphStyle.SetTab (3 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (5,5 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (7,85 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call notesRichTextParagraphStyle.SetTab (11 * RULER_ONE_CENTIMETER, TAB_LEFT)

Funktioniert nicht:

1. Die Zahlen mit Komma bringen Fehlermeldungen.

2. Die Spaltenbreiten sind gleich:

   
   Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   Call rtitem.AppendText( "titel1")
   Call rtpstyle.SetTab (13 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel2")
   Call rtpstyle.SetTab (18 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel3")
   Call rtpstyle.SetTab (25 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel4")
   Call rtpstyle.SetTab (35 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AddTab(1)
   Call rtitem.AppendText( "titel5")
   Call rtitem.AddNewLine( 2)

[Bruce Willis]

Und die andere Reihenfolge funktioniert auch nicht:

Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   Call rtitem.AppendText( "titel1")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (8 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel2")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (18 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel3")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (20 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel4")
   Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (30 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendText( "titel5")
   Call rtitem.AddNewLine( 2)

[koehlerbv]

1) Ersetze das Komma durch den Punkt. Ich hatte die falsche Notation gewählt.

2) Wo ist Dein NotesRichText.AppendParagraphStyle ? Du weist den Style doch gar nicht dem RT-Paragraph zu!

Bernhard

[Bruce Willis]

Danke, Bernhard.

Funktioniert trotzdem nicht

Ob mit "'Call rtitem.AddTab(1)" oder auch ohne:


   Dim rtpStyle As NotesRichTextParagraphStyle   
   Set rtpStyle = session.CreateRichTextParagraphStyle
   
   Call rtitem.AppendText( "Hi there")
   Call rtitem.AddNewLine( 1)
   
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel1")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (6 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel2")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (12 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel3")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (20 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel4")
   'Call rtitem.AddTab(1)
   Call rtpstyle.SetTab (23 * RULER_ONE_CENTIMETER, TAB_LEFT)
   Call rtitem.AppendParagraphStyle(rtpStyle)
   Call rtitem.AppendText( "titel5")
   
   Call rtitem.AddNewLine( 2)

[koehlerbv]

Leo, denke doch mal über die Reihenfolge Deiner Schritte nach. Bitte.

- Paragraph style erstellen (komplett!)
- Paragraph style zuweisen

Dann den Text schreiben. Deshalb hatte ich doch geschrieben: "Wie machst Du es manuell?"

Bernhard

[Bruce Willis]

Danke, Bernhard, dass Du die Zeit gefunden hast, mir nochmals zu schreiben.

Das Thema hatten wir in der Tat schon auf der vorherigen Seite.
Leider verstehe ich immer noch nicht, was Du meinst.

Falls Du ein paar Zeilen nicht korrigieren möchtest, vergessen wir die Sache einfach.

Gute Nacht
Leo

[koehlerbv]

Leo, wenn Du Post #25 nicht verstehst, bin ich raus aus der Nummer. Und fertigen Code gibt es hier in der Regel nicht, sondern die Anleitung für das Verständnis.

Auch ich wünsche Dir eine gute Nacht.

Bernhard

[Bruce Willis]

fertigen Code gibt es hier in der Regel nicht, sondern die Anleitung für das Verständnis.
Bernhard

Wo bekomme ich denn diese 6 oder 8 Zeilen "fertigen" Bespiel-Code als "die Anleitung für das Verständnis", wie man zwei Spalten formatiert?

In einem beliebigen anderen Notes Forum im Internet?

Oder bei Dir direkt als ein lukrativer Auftrag?

Gruß
Leo

P.S. 20.04.2010 14:08
Sorry, ich war etwas aufgeregt.

[Peter Klett]

Manchmal sieht man den Wald vor lauter Bäumen nicht. Probier doch mal das so zu schreiben (ohne Gewähr, habe nur Dein Script sortiert):

'1. Style definieren
Dim rtpStyle As NotesRichTextParagraphStyle   
Set rtpStyle = session.CreateRichTextParagraphStyle
Call rtpstyle.SetTab (6 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call rtpstyle.SetTab (12 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call rtpstyle.SetTab (20 * RULER_ONE_CENTIMETER, TAB_LEFT)
Call rtpstyle.SetTab (23 * RULER_ONE_CENTIMETER, TAB_LEFT)

'2. Style zuordnen
Call rtitem.AppendParagraphStyle(rtpStyle)

'3. Text schreiben   
Call rtitem.AppendText( "Hi there")
Call rtitem.AddNewLine( 1)
 
Call rtitem.AppendText( "titel1")
Call rtitem.AddTab(1)
Call rtitem.AppendText( "titel2")
Call rtitem.AddTab(1)
Call rtitem.AppendText( "titel3")
Call rtitem.AddTab(1)
Call rtitem.AppendText( "titel4")
Call rtitem.AddTab(1)
Call rtitem.AppendText( "titel5")
   
Call rtitem.AddNewLine( 2)

[Bruce Willis]

Manchmal sieht man den Wald vor lauter Bäumen nicht. Probier doch mal das so zu schreiben (ohne Gewähr, habe nur Dein Script sortiert)...

Oh... Ich hatte wirklich ein Blackout...
Vielen Dank, Peter!!! 
Es funktioniert!

Danke an ALLE Beteiligten!