Word-Datei auslesen / editieren

  • Word

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    Word-Datei auslesen / editieren

    Hey Leute,

    eine kleine Frage.
    Ich möchte mir eine Word Datei auslesen und editieren, da ich in meinem Word Dokument diese stellen mit einem "@" markiert habe- z.B. "@Name" - würde ich diese gerne mit einem streamreader auslesen und anschließend bearbeiten.

    Normalerweise kein Ding..

    Aber:
    Ich lese mir die *.doc - Datei aus und bekomme nur merkwürdige Symbole- Öffne ich mit einem Editor die Datei erscheinen diese Symbole weiterhin aber ich kann auch "@Name" finden..
    Weiß einer wie ich das bewerkstelligen kann?

    Grüße
    Option Strict On!

    Ist das eine alte ".doc"-Datei oder eine ".docx" aus Office 2007 (oder später).
    Word-Dateien im Rohformat zu bearbeiten ist nicht ganz ungefährlich, wenn man das Format nicht vollständig beherrscht.
    Spätestens seit 2007 nahezu unmöglich.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    @petaod
    Ja, dadurch das MS ja die Daten kompakter hält (*docx - xml struktur) konnte ich mit der *.docx nichts anfangen, weswegen ich eine .doc abgespeichert habe.

    Habe was gefunden.

    VB.NET-Quellcode

    1. Imports Word = Microsoft.Office.Interop.Word
    2. Public Class Form1
    4. ' Finden / Ersetzen in Word Document
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Dim objWordApp As New Word.Application
    7. objWordApp.Visible = false 'Word Dokument öffnen Wahr/Falsch
    9. 'Vorhandenes Dokument öffnen.
    10. Dim objDoc As Word.Document = objWordApp.Documents.Open("C:\Trydata\1.doc")
    11. objDoc = objWordApp.ActiveDocument
    13. 'Finde und ersetze...
    14. ' 'VB' mit 'Visual Basic Express'
    15. objDoc.Content.Find.Execute(FindText:="VB", ReplaceWith:="Visual Basic Express", Replace:=Word.WdReplace.wdReplaceAll)
    16. While objDoc.Content.Find.Execute(FindText:=" ", Wrap:=Word.WdFindWrap.wdFindContinue)
    17. objDoc.Content.Find.Execute(FindText:=" ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)
    18. End While
    20. 'Speichern und Schliessen
    21. objDoc.Save() '.Save überschreibt die Datei --> .SaveAs2("Pfad") kann neue Ausgabe der Datei ermöglichen
    22. objDoc.Close()
    23. objDoc = Nothing
    24. objWordApp.Quit()
    25. objWordApp = Nothing
    27. End Sub
    28. End Class


    Grüße. :)
    Option Strict On!

Facebook
Telefonspende