Delpi Word mehrere Tabellen erstellen

[Nimmersatt]

Hallo,


Ich will über Delphi in Word mehrere Tabellen erstellen, aber irgendwie klappt es nicht.


Mit einer Tabelle habe ich überhaupt kein Problem, der Befehl lautet z.B.

WordTable := NewDoc.Tables.Add(Word.Selection.Range,5,5);


Es klappt nicht, eine Tabelle mehrmals oder mehrere Tabellen anzeigen zu lassen.


Gibt es eine Array-Funktion, um mehrere Tabellen aufrufen zu können ?

Und warum bin ich nicht in der Lage, eine Tabelle mir mehrmals in Word anzeigen zu lassen ?


mfg Nimmersatt

[hoika]

Hallo,
zeig doch mal Deinen Code für das Anlegen von 2 Tabellen.

[Nimmersatt]

Delphi-Quellcode:

var wordTable: array[1..2] of OLEVariant;
    e: integer;

begin
 try
    Word := CreateOleObject('Word.Application');
  except
    Exit;
  end;

  Word.Visible := True;
  NewDoc := Word.Documents.Add;

  for e:=1 to 2 do
  begin
    WordTable[e]:=NewDoc.Tables.Add(Word.Selection.Range,2,2);
  
    WordTable[e].Cell(1,1).Range.Text :='aaa';
    WordTable[e].Cell(1,2).Range.Text :='bbb';
    WordTable[e].Cell(2,1).Range.Text :='ccc';
    WordTable[e].Cell(3,2).Range.Text :='ddd';

    wordTable[e].Borders.InsideLineStyle :=1;
    wordTable[e].Borders.outsideLineStyle :=1;
  end;
end;

Es lassen sich einfach nicht zwei identische Tabellen untereinander anzeigen.
Welche Befehle fehlen ?

[p80286]

Du legst die Tabelle am Ort der Selection an, wenn die sich nicht ändert wirst Du die zweite Tabelle nie sehen.

Gruß
K-H

[Nimmersatt]

An p80286,


Ich habe keine Ahnung, wie ich da den Ort der Selection automatisch anpassen kann.

Ist es nicht so, wenn eine Tabelle erzeugt wird, dass der Ort der Selection sich ändert, so dass die 2. Tabelle sichtbar wird ?


mfg Nimmersatt

[p80286]

Im Zweifel umschließt die "neue" Selection, die gerade erstellte Tabelle.
Das beste wird sein, Du erstellst die Tabellen per Hand und läßt den Macro Recorder alles protokollieren.

Gruß
K-H

[Nimmersatt]

Macro Recorder ?

Oh, da habe ich überhaupt keine Erfahrung.



mfg Nimmersatt

[Sherlock]

Oder Textmarken erstellen, und durch Tabellen ersetzen lassen.

Ansonsten lies Dich in das Selection Objekt ein. Grundsätzlich empfiehlt es sich anfangs das gewünschte Ergebnis zunächst in VBA zu entwickeln.

Sherlock

[API]

Nach dem Einfügen der 1. Tabelle musst du den Fokus ans Ende des Dokumentes resp. außerhalb der 1. Tabelle setzen.
Sonst einfach mal googeln

https://www.google.com/search?hl=en-...ultiple+tables

[ghubi01]

Hallo,

Delphi-Quellcode:

const 
  wdStory = 6; //!

     ...
     wordTable[e].Borders.InsideLineStyle :=1;
     wordTable[e].Borders.outsideLineStyle :=1;

     // Diese Beiden Zeile Code dürften hier helfen:
     Word.Selection.Endkey(wdStory); 
     Word.Selection.TypeText(#13#10);
   end;
   ...

Es gibt sicher noch bessere Lösungen, aber diese hilft erst einmal.