Announcement

Collapse
No announcement yet.

Von Delphi nach Word über OLE?

Collapse
X
Collapse
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
Previous template Next
  • #1

    Von Delphi nach Word über OLE?

    Hallo,

    ich hoffe, daß ich nicht im falschen Diskussions-Forum bin. Folgendes Problem:

    Ich habe aus Delphi 4 über OLE vor, ein Word-Dokument zu füllen, daß mit Textmarken gefüllt ist. Diese sollen mit Datenbank-Informationen ersetzt werden. Wie kann ich dies von Delphi aus realisieren?
    Oder gibt es noch einen anderen Weg?

    Danke im voraus
    Tags: None
  • #2
    <html>

    <head>
    <meta http-equiv="Content-Type"
    content="text/html; charset=iso-8859-1">
    <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
    <title>Normale Seite ohne Titel</title>
    </head>
    <font face="Arial"><strong>
    <body bgcolor="#FFFFFF">

    <pre>Hallo Tarek,</pre>

    <pre>das folgende Beispiel kann für Word97 u. Word2000 verwendet werden.</pre>

    <pre>var
    winword: variant;
    begin
    winword := createoleobject('word.application.8'); <font
    color="#0080C0">{OLE-Automationsserver starten}</font>
    winword.documents.open(filename := 'd:\test.doc'); <font
    color="#0080C0">{Datei öffnen}</font>
    winword.selection.goto(What:=-1, Name:='Test_Textmarke'); <font
    color="#0080C0">{Textmarke suchen}</font>
    winword.selection.typetext(text :='Dieser Text wird eingefügt'); <font
    color="#0080C0">{Text einfügen}</font>
    winword.activeDocument.saveas(filename := 'd:\test.doc'); <font
    color="#0080C0">{Dokument speichern}</font>
    word.wordbasic.appshow; <font color="#0080C0">{Word aktivieren / in den Vordergrund bringen}</font>
    end;</pre>

    <p>&nbsp;</p>

    <pre>Tschüß</pre>

    <pre>Torsten</pre>
    </body>
    </html&gt

    Comment

    • #3
      Hallo Torsten,<br>
      hast Du ein Aehnliches Beispiel um Daten in einer bestimmten Zelle einer Excel Tabelle zu aendern?<br>
      Danke im voraus<br>
      Gruss Manfre

      Comment

      • #4
        Hallo Manfred,

        für welche Excel-Version suchst Du eine Lösung und wie wird die gesuchte Zelle identifiziert (z.B. über Zellnamen oder über die zur Zeit aktuelle Zelle)?

        Tschüß

        Torste

        Comment

        • #5
          <html>

          <head>
          <meta http-equiv="Content-Type"
          content="text/html; charset=iso-8859-1">
          <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
          <title>Normale Seite ohne Titel</title>
          </head>

          <body bgcolor="#FFFFFF">

          Hallo Manfred,<p>
          es folgt ein kleines Beispiel für <strong>Excel 97</strong>:
          <p>
          <pre>var
          excel: variant;
          begin
          excel := createoleobject('excel.application'); <font
          color="#0080C0">{OLE-Server starten}</font>
          excel.workbooks.open(filename := 'd:\test.xls'); <font
          color="#0080C0">{Datei öffnen}</font>
          excel.range('A1') := '123'; <font color="#0080C0">{Der Zelle &quot;A1&quot; den Wert &quot;123&quot; zuweisen}</font>
          excel.activeworkbook.saveas(filename := 'd:\test.xls'); <font
          color="#0080C0">{Datei speichern}</font>
          excel.application.visible := true; <font color="#0080C0">{Excel aktivieren (in den Vordergrund bringen)}</font>
          end;</pre>

          <p>Tschüß<p>

          Torsten

          <p>&nbsp;</p>
          </body>
          </html&gt

          Comment

          • #6
            Hallo Torsten<br>
            Ich melde mich erst jetzt, da in unserer Firma das Millennium Fieber ausgebrochen ist.<br>
            Dein Beispiel ist genau das was ich gesucht habe.<br>
            Vielen Dank.<br><br>
            Tschuess<br><br>
            Manfre

            Comment

            Previous template Next
            Working...
            X