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.

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

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.

zusammenfalten · markieren

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 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:

markieren

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!');

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

Word Dokument fernsteuern, Tutorial?

Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Re: Word Dokument fernsteuern, Tutorial?

Forumregeln

Schuster Registriert seit: 21. Okt 2004 Ort: Wien 176 Beiträge Delphi XE7 Architect	#2 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 10:48 Vielleicht hilft dier der Link Markus Schuster __________________ Markus http://members.chello.at/delphi-developer
	Zitat

JPSelter Registriert seit: 24. Jan 2005 Ort: Attendorn/Sauerland 235 Beiträge Turbo Delphi für Win32	#3 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 10:59 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.
	Zitat

Robert Marquardt (Gast) n/a Beiträge	#4 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 11:11 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.
	Zitat

JPSelter Registriert seit: 24. Jan 2005 Ort: Attendorn/Sauerland 235 Beiträge Turbo Delphi für Win32	#5 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 11:32 OK, ich schau da mal rein. Ich habe jetzte "Hello World!" im Dokument stehen 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);
	Zitat

JPSelter Registriert seit: 24. Jan 2005 Ort: Attendorn/Sauerland 235 Beiträge Turbo Delphi für Win32	#7 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 12:19 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?
	Zitat

JPSelter Registriert seit: 24. Jan 2005 Ort: Attendorn/Sauerland 235 Beiträge Turbo Delphi für Win32	#9 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 12:40 for i := 1 to 100000000 do showmessage('Danke!');
	Zitat

Robert Marquardt (Gast) n/a Beiträge	#10 Re: Word Dokument fernsteuern, Tutorial? 11. Feb 2005, 14:03 Der zweite Trick ist es ein Word-Makro aufzuzeichnen und sich dann die Source im Makro-Editor anzuschauen.
	Zitat