AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Wordautomation Zeilenabstand einstellen

Wordautomation Zeilenabstand einstellen

Ein Thema von Alfredo · begonnen am 5. Jul 2021 · letzter Beitrag vom 9. Jul 2021
Antwort Antwort
Seite 2 von 2     12
mmw

Registriert seit: 10. Sep 2019
Ort: OWL
190 Beiträge
 
Delphi 10.3 Rio
 
#11

AW: Wordautomation Zeilenabstand einstellen

  Alt 7. Jul 2021, 18:56
hallo,
als Beispiel

Delphi-Quellcode:
procedure TForm50.Button1Click(Sender: TObject);

var myword:word_tlb._application;
    mydocument,
    myvisible,
    mysavechanges,
    mytemplate,
    newtemplate,
    mydokumenttype,
    myorginalformat,
    myRouteDocument:Olevariant;

begin

  myword:=Word_TLB.CoWordApplication.Create;

  mytemplate:='Normal';
  newtemplate:=False;
  mydokumenttype:=wdNewBlankDocument;
  myvisible:=True;

  mysavechanges:=wdDoNotSaveChanges;
  myorginalformat:=wdOriginalDocumentFormat;
  myRouteDocument:=False;

  try

   myword.Documents.Add(mytemplate,newtemplate,mydokumenttype,myvisible);

   myword.Visible:=True;


   // myword.Quit(mysavechanges,myorginalformat,myRouteDocument);

  except

  end;
end;

hier ist eine gute Erklärung


[URL="https://www.delphi-treff.de/tipps-tricks/comoledde/andere-office-anwendungen/excel-mit-ole-automation-steuern/"]https://www.delphi-treff.de/tipps-tricks/comoledde/andere-office-anwendungen/excel-mit-ole-automation-steuern/[/URL]


Gruß
  Mit Zitat antworten Zitat
Alfredo

Registriert seit: 4. Mär 2008
Ort: München
253 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Wordautomation Zeilenabstand einstellen

  Alt 8. Jul 2021, 13:38
Hallo Lemmy vielen Dank für die Infos.

Es hat etwas gedauert, bis ich dcloffice2010270.bpl in \21\bin\ gefunden hatte.

Gruß
Alfred
  Mit Zitat antworten Zitat
Alfredo

Registriert seit: 4. Mär 2008
Ort: München
253 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Wordautomation Zeilenabstand einstellen

  Alt 8. Jul 2021, 13:53
Hallo mmw,

ich habe den Beispiel etwas abgeändert, damit es bei mir läuft.

Delphi-Quellcode:
procedure TForm2.Button1.click(Sender: TOjekt);
Var
   mytemplate: OleVariant;
   myvisible: OleVariant;
   newtemplate: OleVariant;
   mydokumenttype: OleVariant;

begin

  mytemplate := 'Normal';
  newtemplate := False;
  mydokumenttype := wdNewBlankDocument;
  myvisible := True;
  
  myword.connect;
  myword.Visible := True;
  myword.Documents.Add(mytemplate,newtemplate,mydokumenttype,myvisible);
  myword.Selection.Font.Name := 'Courier New';
  myword.Selection.Font.Size := 10;
  myword.Selection.Font.Bold := 1;
  myword.Selection.TypeText('Hello World');

end;
Wo könnte ich denn auf Querdruck umstellen?

Gruß
Alfred
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
431 Beiträge
 
Delphi XE5 Professional
 
#14

AW: Wordautomation Zeilenabstand einstellen

  Alt 8. Jul 2021, 14:18
.. Es hat etwas gedauert, bis ich dcloffice2010270.bpl in \21\bin\ gefunden hatte.
Hallo Alfredo,
Du kannst "verschollene" Dateien auf Festplatten/USB-Sticks etc. am schnellsten mit Everything.exe https://www.voidtools.com/ aufspüren.
Gruß, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat
Alfredo

Registriert seit: 4. Mär 2008
Ort: München
253 Beiträge
 
Delphi 11 Alexandria
 
#15

AW: Wordautomation Zeilenabstand einstellen

  Alt 8. Jul 2021, 17:02
Hallo mmw,

ich hab den Querdruck gefunden:

Delphi-Quellcode:

myword.Selection.PageSetup.Orientation := 1;
  Mit Zitat antworten Zitat
mmw

Registriert seit: 10. Sep 2019
Ort: OWL
190 Beiträge
 
Delphi 10.3 Rio
 
#16

AW: Wordautomation Zeilenabstand einstellen

  Alt 8. Jul 2021, 17:15
Hallo,

für mein Beispiel muss man die Typbibliothek erstellen und einbinden.

Haupsache es funktioniert.

Gruß
  Mit Zitat antworten Zitat
Alfredo

Registriert seit: 4. Mär 2008
Ort: München
253 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: Wordautomation Zeilenabstand einstellen

  Alt 9. Jul 2021, 09:36
Hallo mmw,

ich habe die Ursache gefunden warum es bei mir funkioniert.

Wenn in der Delphi-Komponenten-Palette "Serverkomponenten" die Komponente "TWordApplication"
existiert, ist die Typbiliothek bereits installiert.

In WordApplikation1 habe ich den Namen auf myword geändert und konnte deshalb Deinen
Programmcode weiter verwenden.

Gruß
Alfred
  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 +2. Es ist jetzt 02:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf