Wörter aus Text filtern

  • Word

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von raven89.

    Wörter aus Text filtern

    Schönen guten Tag zusammen,



    da meine Kenntnisse in VBA aus meine Schul-/Unizeit stammen, kann ich folgendes Problem unmöglich ohne Eure Hilfe lösen.





    Problemstellung:

    Ich habe eine ca. 2500 Seiten lange Word Datei, inder Wörter sind, die z.B. wie folgt gekennzeichnet sind:



    <<<Wort>>>



    Somit differenzieren sich dieses Wörter deutlich vom restlichen Text.

    Ich würde jetzt gerne einen Automatismus haben, der mir die 2500 Seiten
    nach diesem Merkmal durchsucht und mir einzelnen Wörter dann
    untereinander auflistet







    Es würde mir brutal viel Arbeit abnehmen, wenn Ihr mir helfen könntet!

    Je genau die Lösung desto besser - wie gesagt, ich weiss vlt grade noch, wie ich vba öffne....



    Vielen Dank im Voraus!!!

    Hier eine Lösung auf die Schnelle:
    1. Worddatei als .txt Datei speichern
    2. Dateinamen im Bas-Programm anpassen
    3. Programm starten
    4. Alle gesuchten Wörter stehen in "wortliste.txt" (<<<Wörter>>> dürfen nicht getrennt sein).

    Visual Basic-Quellcode

    1. DIM t AS STRING
    2. DIM DName AS STRING
    3. DIM WortTxt AS STRING
    4. DIM wort AS STRING
    5. DIM p AS LONG
    6. DIM p1 AS LONG, p2 AS LONG
    8. DName = "c:\Pfad\Datei.txt"
    10. WortTxt="c:\Pfad\WortListe.txt"
    12. OPEN DName FOR INPUT AS #1
    13. OPEN WortTxt FOR OUTPUT AS #2
    15. WHILE NOT EOF( 1 )
    17. LINE INPUT #1, t
    18. IF LEN( t ) THEN
    19. p = 1
    20. WHILE INSTR( p, t, "<<<" )
    21. p1 = INSTR( p, t, "<<<" )
    22. p2 = INSTR( p1 + 3, t, ">>>" )
    24. Wort = MID$( t, p1 + 3, p2 - p1 - 3 ) 'Ausgabe ohne <<<>>> Beispiel: Wort
    25. 'oder
    26. 'Wort = MID$( t, p1, p2 - p1 + 3 ) 'Ausgabe mit <<<>>> Beispiel: <<<Wort>>>
    28. PRINT #2, wort
    29. p = p + p2 + 4
    30. WEND
    32. END IF
    34. WEND
    36. CLOSE

    Hi Tom, siehst du in den Office-Programmen in der oberen Leiste einen Reiter mit "Entwicklertools"?

    Wenn nicht, dann musst du auf Datei --> Optionen --> Menüband anpassen und dort in der rechten Leiste den Haken "Entwicklertools" auswählen. Oben erscheint dann eine Leiste "Entwicklertools" wo sich auch das VBA Icon befindet.

    LG. Raven
    Gruß,
    Raven

Facebook
Telefonspende