Word Dokument fernsteuern, Tutorial?

[JPSelter]

Ich habe ein Programm, das Besprechungs-Protokolle verwalten soll. Zum Ausdrucken eines Protokolls wollte ich die Daten an ein Word-Dokument übergeben, damit der Benutzer selbst noch kleinere Änderungen vornehmen kann, bevor gedruckt wird. Aber wie kann ich die Daten in ein Word-Dok übertragen? Ich habe sowas noch nie gemacht. Bisher habe ich erfolgreich die Befehle WordDocument1.Connect usw. angewandt, aber wie fülle ich das Dok mit Inhalt? Gibts sowas wie WordDocument1.AddTable und .AddText(kursiv,größe20) oder sowas ähnliches? Insgesamt brauche ich jede Menge Tabellen, eine davon beinhaltet eine Grafik.

[Schuster]

Vielleicht hilft dier der Link

[JPSelter]

Den Link hatte ich eben schon gefunden, aber da steht nicht viel drin. Ich bräuchte etwas umfangreicherers, z.B. eine komplette Dokumentation über dieses WordApplication.

[Robert Marquardt]

Die Hilfe zu TWordApplicaton etc ist in Word enthalten. Es ist die VBA-Hilfe zu Word.
Oeffne "Extras : Makros : Visual Basic Editor" dort "Ansicht : Objekt-Katalog" oeffnen bzw F2 druecken.
Das ist der COM-Objektbaum von Word. F1 liefert spezifische Hilfe.

[JPSelter]

OK, ich schau da mal rein. Ich habe jetzte "Hello World!" im Dokument stehen :D Aber nun möchte ich eine Tabelle erschaffen. Da läuft mir der Datentyp "Range" über den Weg, mit dem ich nichts anfangen kann. Hat jemand ein Beispiel, wie sowas aussieht? -> WordApplication1.Selection.Tables.Add(*range-datentyp*,2,2);

[toms]

Hi,

Habe hier einen Code, um ein TStringGrid in ein Worddokument zu exportieren.
(Hab's ohne die Server Komponente gemacht)
Vielleicht hilf's dir ja ein wenig weiter.

Delphi-Quellcode:

uses 
  ComObj; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  WordApp, NewDoc, tabelle: OLEVariant; 
  iRows, iCols, iGridRows, jGridCols: Integer; 
begin 
  try 
    // Word Instanz erzeugen 
    WordApp := CreateOleObject('Word.Application'); 
  except 
    // Fehler.... 
    Exit; 
  end; 

  // Word anzeigen 
  WordApp.Visible := True; 

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

  // Spalten, Reihen ermitteln 
  iCols := StringGrid1.ColCount; 
  iRows := StringGrid1.RowCount; 

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

  // Tabelle ausfüllen mit Stringgrid Daten 
  for iGridRows := 1 to iRows do 
    for jGridCols := 1 to iCols do 
      tabelle.Cell(iGridRows, jGridCols).Range.Text := 
        StringGrid1.Cells[jGridCols - 1, iGridRows - 1]; 

  // Hier evtl Word beenden... 

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

[JPSelter]

Danke, das hilft mir sehr weiter :)

Trotzdem noch eine kleine Frage, vielleicht weiss es ja eben jemand: Wie kann ich die Tabellen-Grenzen grau machen, also so, dass sie nicht gedruckt werden?

[toms]

Zitat:

Zitat von JPSelter

Danke, das hilft mir sehr weiter :)

Trotzdem noch eine kleine Frage, vielleicht weiss es ja eben jemand: Wie kann ich die Tabellen-Grenzen grau machen, also so, dass sie nicht gedruckt werden?

Hmmm, bei mir werden gar keine Linien gezeigt..
Kannst aber mal das probieren:

Delphi-Quellcode:

const
{ wdLineStyleSingle = 1;}
 wdLineStyleNone = 0;
begin
   //...
  tabelle := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
   //...
  tabelle.Borders.OutsideLineStyle := wdLineStyleNone ;
  tabelle.Borders.InsideLineStyle := wdLineStyleNone ;   //...

[JPSelter]

for i := 1 to 100000000 do
showmessage('Danke!');

:)

[Robert Marquardt]

Der zweite Trick ist es ein Word-Makro aufzuzeichnen und sich dann die Source im Makro-Editor anzuschauen.