Fenster ab bestimmte Zeile auslesen

    Hallo,
    hab hier ein kleines Anfänger-Problem bezüglich Fenster auslesen.
    Ein komplettes Fenster auslesen und in Word einfügen geht problemlos, aber ich möchte
    erst ab der z.b. 7 Zeile auslesen oder ab der 7 Zeile in Word einfügen
    doch das bekomme ich leider nicht hin.
    Habs auch schon mit FileReadLine versucht, geht aber irgendwie nicht.

    Währe euch sehr Dankbar wenn mir jemand etwas helfen könnte.


    Gruß
    Dietus

    Spoiler anzeigen
    [autoit]

    #include <Word.au3>
    WinWait("owvk/RE *Ausgabe angehalten*")

    [/autoit] [autoit][/autoit] [autoit]

    $text = WinGetText("owvk/RE *Ausgabe angehalten*", "")
    Global $oWordApp = _WordCreate (@ScriptDir & "\Briefkopf.dotx", 0, 1, 0)
    Global $oDoc = _WordDocGetCollection ($oWordApp, 0)

    [/autoit] [autoit][/autoit] [autoit]

    $oDoc.Range.insertAfter ($text)
    WinClose("owvk/RE *Ausgabe angehalten*", "")
    _WordDocSaveAs($oDoc, @ScriptDir & "\Test.doc")

    [/autoit]

    Einmal editiert, zuletzt von Dietus (25. Februar 2011 um 19:42)

    Wie genau es gehen könnte weiß ich jetzt nicht,
    aber BugFix hatte vor kurzem eine VBA Referenz verlinkt, da ist unter anderem auch Word dabei, vielleicht findest du da das passende

    BugFix Link VBA Referenz

    Hallo Dietus,

    du kannst es so machen:

    Spoiler anzeigen
    [autoit]

    #include <Word.au3>
    WinWait("owvk/RE *Ausgabe angehalten*")

    [/autoit] [autoit][/autoit] [autoit]

    $text = WinGetText("owvk/RE *Ausgabe angehalten*", "")
    $aSplit = StringSplit($text,@crlf,1)
    $sToWord = ""
    For $i = 7 to $aSplit[0]
    $sToWord &= $aSplit[$i] & @CRLF
    Next

    [/autoit] [autoit][/autoit] [autoit]

    Global $oWordApp = _WordCreate (@ScriptDir & "\Briefkopf.dotx", 0, 1, 0)
    Global $oDoc = _WordDocGetCollection ($oWordApp, 0)
    $oDoc.Range.insertAfter ($sToWord)
    WinClose("owvk/RE *Ausgabe angehalten*", "")
    _WordDocSaveAs($oDoc, @ScriptDir & "\Test.doc")

    [/autoit]

    mfg autoBert

    Danke autoBert,

    Bin auf eine ähnliche Lösung gekommen!
    Hab es mit StringTrimLeft gemach.
    Finde aber deine Lösung besser


    Vielen Dank !!!

    Spoiler anzeigen
    [autoit]

    #include <Word.au3>
    WinWait("owvk/RE *Ausgabe angehalten*")

    [/autoit] [autoit][/autoit] [autoit]

    $text = WinGetText("owvk/RE *Ausgabe angehalten*", "")
    $result = StringTrimLeft($text, 272)

    [/autoit] [autoit][/autoit] [autoit]

    Global $oWordApp = _WordCreate (@ScriptDir & "\Briefkopf.dotx", 0, 1, 0)
    Global $oDoc = _WordDocGetCollection ($oWordApp, 0)

    [/autoit] [autoit][/autoit] [autoit]

    $oDoc.Range.insertAfter ($result)
    WinClose("owvk/RE *Ausgabe angehalten*", "")
    _WordDocSaveAs($oDoc, @ScriptDir & "\Test.doc")

    [/autoit]

    schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    mfg autoBert