AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delpi Word mehrere Tabellen erstellen

Delpi Word mehrere Tabellen erstellen

Ein Thema von Nimmersatt · begonnen am 30. Sep 2018 · letzter Beitrag vom 1. Okt 2018
Antwort Antwort
Seite 2 von 2     12
Nimmersatt

Registriert seit: 14. Feb 2014
86 Beiträge
 
#11

AW: Delpi Word mehrere Tabellen erstellen

  Alt 1. Okt 2018, 12:51
An Alle,


Danke für die Hilfe !

Die Lösung von Ghubi01 ist das, wonach ich gesucht habe.

Für diejenigen, die problemlos mehrere Tabellen in Word erzeugen wollen, hier noch eimal der gesamte Code


Delphi-Quellcode:

const wdStory = 6;

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(2,2).Range.Text :='ddd';

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

    Word.Selection.Endkey(wdStory);
    Word.Selection.TypeText(#13#10);
  end;
end;

mfg Nimmersatt
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf