Announcement

Collapse
No announcement yet.

InsertAfter ist falsch?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • InsertAfter ist falsch?

    Hallo!

    mit dem folgenden Quellcode(ausschnitt) versuche ich in die Kopfzeile<BR>
    eines Word_Documents zu schreiben, was mir bis auf die kleinigkeit das<br>
    das insertAfter tatsächlich nach dem Bookmark einfügt auch gelingt.<br>

    Da ich in die Kopfzeile eine Tabelle eingefügt habe in der versch. <br> Bookmarks stehen schreibt InsertAfter immer in die nächste Zeile<br>
    bzw. in das nächste Bookmark. Wie kann ich den Code so modfizieren,<br>
    das nicht InsertAfter sondern direkt geschrieben wird.<br>
    Ich hatte auch versucht die Tabelle in der Kopfzeile direkt an-<br>
    zusprechen mit Cells(1,1) usw. das geht aber auch nicht!

    vNewDoc:= False;<br>
    DM_Haupt.WordApp.Documents.AddOld(vDot, vNewDoc);<br>
    DM_Haupt.Doc.ConnectTo(DM_Haupt.WordApp.ActiveDocu ment);<br>
    except<br>
    ShowMessage('FEHLER!! Word 2000 Vorlage wurde nicht gefunden');<br>
    exit<br>
    end;<br>
    DM_Haupt.WordApp.Visible:= True; <br>
    DM_Haupt.WordApp.WindowState := wdwindowstatemaximize;<br>
    <br>
    //in die Kopfzeile wechseln!!<br>
    DM_Haupt.WordApp.ActiveDocument.ActiveWindow.Activ ePane.View.<br>
    SeekView := wdSeekCurrentPageHeader;<br>
    <br>
    aRange := SelectBookmarkRange('DUMMY')<BR>
    aRange.InsertAfter('D20');<br>
    <br>

    wäre toll wenn ich ne Antwort bekommen könnte!

    jürgen

  • #2
    Hallo,

    &gt;..Ich hatte auch versucht die Tabelle in der Kopfzeile direkt an-
    zusprechen ...

    der Grund für dieses Problem wird die Tabelle sein, in deren Felder die Werte eingefügt werden müssen. Am einfachsten wird es sein, via <b>NextCell</b> von Zelle zu Zelle der Tabelle zu springen, um die Daten dort abzulegen:
    <pre>
    ...
    vMSWord := IDispatch(DataModuleWord2000.WordApp2000.Applicati on);
    vMSWord.WordBasic.NextCell;
    ...
    </pre&gt

    Comment

    Working...
    X