Domino 9 und frühere Versionen > Administration & Userprobleme

Tabellen trennen?

<< < (2/2)

eknori:
AAAAHHHHHHH !!

Ja, Notes kann das, es gibt die Funktionen Zellen teilen und Zellen verbinden.
#

eknori

Torsten:
AAAAAAAAAHHHHHHHHH!!!!!!!!!!!!
Nein, das meine ich nicht  :( :( :(
Diese Funktion kenne ich. Ich habe Tabellen, die z.B. ca. 250 Zeilen haben und aus diesen Tabellen würde ich nun gerne mehrere kleine machen, also z.B 2 Tabellen mit 100 Zeilen und eine mit 50. Und das würde ich gerne machen ohne alles neu einzugeben.


Torsten

Torsten:
:( :( :( :( :(
Kennt keiner eine Antwort?

Eine Bestätigung das Notes das nicht kann wäre auch OK, dann bräuchte ich nicht mehr weitersuchen. :-/ ;D

eknori:
Hallo Thorsten,

hmm, dann versuche ich noch mal mein Glück.
Es kömmt darauf an, wie duu deine Tabellen aufgebaut hast.
Wenn du in einem Notes Dokument eine Tabelle in ein Richtext Feld dergestalt eingefügt hast, daß du für jede neue Zeile eine Tabellenzeile angehängt hast, hast du im Prinzip nichts anderes, als text, der von ein paar Linien in Form gebracht wurde.
Dann kannst du dein Vorhaben im Großen und Ganzen vergessen.
Du kannst natürlich "leere" Zeilen einfügen und über die Tabelleneigenschaften die rechte und linke Linie ausblenden. Dann ist die Tabelle getrennt ;D

Ich denke aber nicht, das es das ist, was du willst.

Du kanst eine solche Tabelle auch Zellenweise auslesen

Sub Click(Source As Button)
   
    Dim w As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim bodytext As Variant
    Dim x As Integer, y As Integer
    Dim asciichr As Integer
   
    Set uidoc = w.currentdocument
    Set doc = uidoc.document
   
    bodytext = doc.body
   
    y = 1
    For x = 1 To Len(bodytext)
         asciichr = Asc(Mid(bodytext,x,1))
         If asciichr = 9 Or asciichr = 10 Then
              cellnumber = cellnumber + 1
                   Messagebox("Cell " & Str(cellnumber) & " contains """ & Mid(bodytext,y,x-y)) & """"
              y = x + 1
         End If
    Next x
   
End Sub

und dann neue Tabellen aufbauen.

Wenn deine Spalten Felder enthalten ( die Tabelle also ein Teil des Designs der Maske ist) kannst du
die Inhalte mit Script auslesen und dann neue Dokumente erzeugen, die die entsprechende Anzahl von Zeilen enthält.

Hoffe, das hilft irgendwie weiter  ??? ??? ::)

Navigation

[0] Themen-Index

[*] Vorherige Sete