Stringgrid nach Tabelle in Word

[aaron]

Hallo
ich versuche ein Stringgrid in eine Tabelle in Word zu kopieren:

Delphi-Quellcode:

procedure Tform1.AdvGlowButton3Click(Sender: TObject);

var
  WordApp, NewDoc, WordTable: OLEVariant;
  iRows, iCols, iGridRows, jGridCols: Integer;
begin
  try
    // Create a Word Instance
    // Word Instanz erzeugen
    WordApp := CreateOleObject('Word.Application');
  except
    // Error...
    // Fehler....
    Exit;
  end;

  // Show Word
  // Word anzeigen
  WordApp.Visible := True;

  // Add a new Doc
  // Neues Dok einfügen
  NewDoc := WordApp.Documents.Add;

  // Get number of columns, rows
  // Spalten, Reihen ermitteln
  iCols := StringGrid1.ColCount;
  iRows := StringGrid1.RowCount;

  // Add a Table
  // Tabelle einfügen
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

  // Fill up the word table with the Stringgrid contents
  // Tabelle ausfüllen mit Stringgrid Daten
  for iGridRows := 1 to iRows do
    for jGridCols := 1 to iCols do
      WordTable.Cell(iGridRows, jGridCols).Range.Text :=
        StringGrid1.Cells[jGridCols - 1, iGridRows - 1];

  // Here you might want to Save the Doc, quit Word...
  // Hier evtl Word Doc speichern, beenden...

  // ...
  
  // Cleanup...
  WordApp := Unassigned;
  NewDoc := Unassigned;
  WordTable := Unassigned;
end;

Ich bekomme in Word immer nur die erste und die letzte Zeile eingefügt und auch immer so gestaucht, würde ich den Spalten gerne individuelle Breiten geben und einen schwarzen Rand.

Frohe Ostern
Aaron

[toms]

Hallo,

Zitat:

Ich bekomme in Word immer nur die erste und die letzte Zeile eingefügt

Das kann ich nicht nachvollziehen. (Word 2002)

Zitat:

würde ich den Spalten gerne individuelle Breiten geben und einen schwarzen Rand.

Hier findest du einige Hinweise.

[aaron]

Hallo toms
Word 2007 und Word 2000.
Evtl. liegt es auch am TAdvStringgrid (TMS), muss ich mal testen.
Danke für deine Tips.
Ich meld mich gelich nochmal.
Gruß
Aaron

[toms]

Zitat von aaron:

Evtl. liegt es auch am TAdvStringgrid (TMS), muss ich mal testen.

Sollte keinen Unterschied ausmachen. Ist StringGrid1 wirklich ein TAdvStringgrid?

[aaron]

Ja.
Ich teste gerade mit einem "normalen" Stringgrid, irgendwie klappt das auch nicht.

Zitat:

---------------------------
Project1
---------------------------
Die Zahl muss zwischen 1 und 32767 liegen.
---------------------------
OK
---------------------------

Obwohl die Datei nur knapp 30 Zeilen hat.
Grüße
Aaron

[toms]

Bei welcher Zeile tritt der Fehler auf?

[aaron]

Hier:
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

[toms]

...und die Werte von iCols, iRows?

[aaron]

Hallo toms,
ich verwende folgenden Tip:
http://www.swissdelphicenter.ch/de/showcode.php?id=1726
Mehr Code habe ich nicht dafür verwendet.
Dein Link hilft aber auch sehr weiter:
Hier

[toms]

Zitat von toms:

...und die Werte von iCols, iRows?

Der Fehler erschient ja bei:

Zitat:

WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

Das heisst, iCols oder iRows ist zu gross / wurde evtl. nicht richtig initialisiert?
Darum die Frage, was für Werte die Variablen beim Aufruf von Add(...) haben.