ich möchte über imaginäre tabs in einem Document verfügen, um den Text tabellarisch auflisten zu können. Habt Ihr eine Idee?
vielen Dank
Kess
tabs in einem Document, in Script geschrieben
- kess
- Erledigt
-
-
Was sind bitte imaginäre Tabs ?
-
'tschuldigung, ist blöde ausgedrückt.
Also - ganz normale Tabs oder halt Tabellen ohne sichtbare Rahmen
-
Na dann hast du die Lösung ja schon selbst genannt:
Tabellen ohne Rahmen bzw mit Rahmenstärke 0
-
Suche mal in der Designer-Hilfe nach AppendTable method
-
danke für Deine Antwort.
Ich weiss halt bloß nicht, wie ich das machen kann.
Ich hab eine Mail, die ich beschreiben möchte. Am Anfang der Mail sollen "Kopfdaten" stehen, ordentlich eingerückt mit tabs oder Tabellen. Danach kommt laufender Text.
also
bla: xxxxxxxx
blabla: xxxxxxxxx
blablabla: xxxxxxxx... und dann der laufende Text
wäre schön, wenn Du, Ihr eine Antwort hättet
danke
Kess
-
Indem du einfach eine Tabelle erstellst, dann die Eigenschaftsbox aufrufst und dort die Rahmenstärke auf 0 setzt.
Wo genau ist denn dabei dein Problem ?
-
Hallo Kess,
hilft dir dieser Script vielleicht weiter?
Code
Alles anzeigenDim ws As New NotesUIWorkspace Dim session As New NotesSession Dim uidoc As NotesUIDocument Dim db As NotesDatabase Dim doc As NotesDocument Dim rti As NotesRichTextItem Dim rts As NotesRichTextStyle ..... Set db = session.CurrentDatabase Set doc = New NotesDocument(db) '..... Call doc.ReplaceItemValue("Form", "Memo") Call doc.ReplaceItemValue("Subject", "das ist das Thema") Set rti = doc.CreateRichTextItem("Body") Set rts = session.CreateRichTextStyle rts.FontSize = 12 rts.Bold = True rts.NotesColor = 11 'COLOR_DARK_MAGENTA Call rti.AppendStyle(rts) Call rti.AppendText("bla:") Call rti.AddTab(3) Call rti.AppendText("xxxxxxxx ") Call rti.AddNewLine(1) Call rti.AppendText("blabla:") Call rti.AddTab(3) Call rti.AppendText("xxxxxxxx ") Call rti.AddNewLine(1) Call rti.AppendText("blablabla:") Call rti.AddTab(3) Call rti.AppendText("xxxxxxxx ") Call rti.AddNewLine(3) rts.FontSize = 10 rts.Bold = False rts.NotesColor = 0 'COLOR_BLACK Call rti.AppendStyle(rts) Call rti.AppendText("... und dann der laufende Text") '..... 'senden Call doc.send(False, deine_Empfängerliste) 'oder zum Bearbeiten öffnen Set uidoc = ws.editdocument(True,doc) Call uidoc.GotoField("Body")Gruß
Laura
P.S. Ist ungetestet...
-
da ich nicht herauslese, das es sich um ein RichText-Feld handelt, hier noch eine Möglichkeit, wie es auch mit einem Text-Feld funktioniert.
Für dieses Feld würde ich dann eine Schriftart verwenden, bei der alle Zeichen gleich breit sind und dann mit Leerzeichen auffüllen.
Codeleer := " "; @Right("bla:" + leer; 15) + "xxxxxxxx" + @NewLine + @Right("blabla:" + leer; 15) + "xxxxxxxx" + @NewLine + @Right("blablabla:" + leer; 15) + "xxxxxxxx"
Gruß
Dirk -
vielen lieben Dank für Eure Hilfe
wirklich ein super Forum
Kess