AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Word2000: Wie Kopfzeile erstellen?
Thema durchsuchen
Ansicht
Themen-Optionen

Word2000: Wie Kopfzeile erstellen?

Ein Thema von JPSelter · begonnen am 16. Feb 2006 · letzter Beitrag vom 16. Feb 2006
Antwort Antwort
Benutzerbild von JPSelter
JPSelter

Registriert seit: 24. Jan 2005
Ort: Attendorn/Sauerland
235 Beiträge
 
Turbo Delphi für Win32
 
#1

Word2000: Wie Kopfzeile erstellen?

  Alt 16. Feb 2006, 10:56
Wie kann ich aus Delphi heraus in Word eine Kopfzeile mit 3 Spalten erstellen? Ich habe bereits mit viel Mühe Word soweit unter Kontrolle, dass ich einige Seiten mit variablen Tabelleninhalten erstellen kann. Aber nun muss ich auch an die Kopfzeile. Aber wie? Irgendwie muss ich den Cursor doch dahinbekommen und dann den Text einfach einfügen.
=JPSelter=

Visit www.ditonovia.de for our breathtaking movies: Herrin der Ringe (Fantasy 2005), Hemisphere (Science-Fiction 2004) & Braveknife (Parodie 2001) and more...
  Mit Zitat antworten Zitat
Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2

Re: Word2000: Wie Kopfzeile erstellen?

  Alt 16. Feb 2006, 19:12
Hallo
Delphi-Quellcode:
procedure TForm1.Button15Click(Sender: TObject);
Var _DefaultTableBehavior:olevariant;
    _AutoFitBehavior:olevariant;
    _RulerStyle:olevariant;
    _unit:olevariant;
begin
  //Bsp mit Serverkompos
  //autoconnect von Wordapp+Doc auf false
  WordApplication1.Connect;
  try
    WordApplication1.Visible:=true;
    //neues Worddoc
    WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));

    //in Kopzeile wechseln
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;

    //3-spaltige Tabelle erstellen
    _DefaultTableBehavior:=wdWord9TableBehavior;
    _AutoFitBehavior:= wdAutoFitFixed;
    WordDocument1.Tables.Add(WordApplication1.Selection.Range,1,3,_DefaultTableBehavior,_AutoFitBehavior);

    //Formatieren (keine Rahmen)
    With WordApplication1.Selection.Tables.Item(1) do
      begin
        Borders.Item(wdBorderLeft).LineStyle := wdLineStyleNone;
        Borders.item(wdBorderRight).LineStyle := wdLineStyleNone;
        Borders.item(wdBorderTop).LineStyle := wdLineStyleNone;
        Borders.item(wdBorderBottom).LineStyle := wdLineStyleSingle;
        Borders.item(wdBorderVertical).LineStyle := wdLineStyleNone;
        Borders.item(wdBorderDiagonalDown).LineStyle := wdLineStyleNone;
        Borders.item(wdBorderDiagonalUp).LineStyle := wdLineStyleNone;
        Borders.Shadow := False
      End;
    //1. Spalte kleiner machen
    _RulerStyle:=wdAdjustNone;
    WordApplication1.Selection.Tables.item(1).Columns.Item(1).SetWidth(WordApplication1.CentimetersToPoints(3), _RulerStyle);
    //Text ausgeben
    WordApplication1.Selection.TypeText('Spalte1');

    _unit:=wdCell;
    WordApplication1.Selection.MoveRight(_unit,EmptyParam,EmptyParam);
    WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
    WordApplication1.Selection.TypeText('Spalte2'+chr(vk_return)+'zentriert');

    WordApplication1.Selection.MoveRight(_unit,EmptyParam,EmptyParam);
    WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight;
    WordApplication1.Selection.TypeText('Spalte3 (rechts)');

    //wieder zum Hauptdok
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;

    //Text ausgebebn
    WordApplication1.Selection.TypeText('Fertig');
  finally
    WordDocument1.Disconnect;
    WordApplication1.Disconnect;
  end;
end;
Die Tabelle ist nur Beispielhaft, prinzipiell kannst du den text gleich direkt mit typetext reinschreiben, "3" spalten sind durch die Tabstops links, zentriert und rechts schon vorgegeben.

Mfg Frank

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)
  Mit Zitat antworten Zitat
Antwort Antwort


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 14:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz