Imports Word = Microsoft.Office.Interop.Word
 
 
Module WordDocWriter
 
    Public Sub DocWriter()
        Dim objWordApp As New Word.Application
        objWordApp.Visible = True
        Dim Anrede As String = Hauptmenue.tbBgFormatA.Text
        Dim Zeile As String = "{ADD1.ANREDE};{AUKOPF.DATUM}"
        Dim Headlines() As String = Zeile.Split(";")
        Dim ZeileDaten As String = "Herr o Frau" & ";" & Hauptmenue.tbDate.Text
        Dim Daten() As String = ZeileDaten.Split(";")
 
        ' Dokument öffnen.  
        Dim objDoc As Word.Document = objWordApp.Documents.Add( _
          "C:\Users\USERNAME\Desktop\RE-2017.dotx")
        objDoc = objWordApp.ActiveDocument
        objWordApp.ActiveDocument.SaveAs("RE1101Test.docx")
        For i As Integer = 0 To 1
 
            ' Textmarken mit Daten ersetzen  
            objDoc.Content.Find.Execute(FindText:=Headlines(0), _
              ReplaceWith:=Daten(0), Replace:=Word.WdReplace.wdReplaceAll)
            While objDoc.Content.Find.Execute(FindText:="  ", _
            Wrap:=Word.WdFindWrap.wdFindContinue)
                objDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", _
                Replace:=Word.WdReplace.wdReplaceAll, _
                Wrap:=Word.WdFindWrap.wdFindContinue)
            End While
        Next
 
        'Dokument speichern und schließen 
        ' objDoc.Save()
        ' objDoc.Close()
        'objDoc = Nothing
        'objWordApp.Quit()
        'objWordApp = Nothing
 
        ' Textmarke aufteilen in Tablename und Columnheader
        'Dim StringList As String = "{ADD1.FIRMA}"
        'Dim StringArrayList() As String = StringList.Replace("{", "").Replace( 
        ' "}", "").Split(".")
 
        'MessageBox.Show(StringArrayList(0))
        'MessageBox.Show(StringArrayList(1))
 
 
    End Sub
End Module

Imports System.IO.Path
Imports System.IO
 
Module DATschreiben
    Public Sub DATerzeugen()
        Dim File As File = Nothing
 
        ' Stringvariable bereithalten 
        Dim strTempPath As String
 
        ' TEMP-Verzeichnis ermitteln: 
        strTempPath = IO.Path.GetTempPath
 
        ' Ausgabe ins Konsolenfenster 
        'MsgBox(strTempPath)
 
        ' Tabellen mit Streamwriter erstellen
        Dim Writer As StreamWriter
 
        Writer = New StreamWriter(strTempPath & "Gesamt.dat", True, _
          Text.Encoding.UTF8)
        Writer.WriteLine("[INFO]")
        Writer.WriteLine("[ADD1]")
        Writer.WriteLine("[FIRMA];" & "[STRASSE];" & "[HAUSNUMMER];" & "[PLZ];" _
          & "[ORT];")
        Writer.WriteLine(Hauptmenue.tbEformatA.Text & ";" & _
        Hauptmenue.tbEformatB.Text & ";" & ";" & ";" & ";")
        Writer.WriteLine("[ADD2]")
        Writer.WriteLine("[FIRMA];" & "[STRASSE];" & "[HAUSNUMMER];" & "[PLZ];" _
          & "[ORT];")
        Writer.WriteLine(Hauptmenue.tbEformatA.Text & ";" & _
        Hauptmenue.tbEformatB.Text & ";" & ";" & ";" & ";")
        Writer.Close()
 
 
        DocWriter()
 
 
    End Sub
End Module

EALA FREYA FRESENA

EALA FREYA FRESENA

EALA FREYA FRESENA

Zitat:

Mit dem System werden sämtlichen Dokumente erstellt, also vom Angebot, über die Rechnung, bis hin zum Umlauf- und Lieferschein. In jeder der Vorlagen sind zich Textmarken.

Zitat:

Wenn man diese herkönntlich generiert, dauert das ewig ein neues Dokument zu erstellen.

Zitat:

Wenn man die umständliche Methode geht, kann man die Textmarke einfach mit {} kennzeichnen, und gibt dort Tabellen- und Spaltenname des Werts an, den man im Dokument haben will. Ohne Word sagen zu müssen, du bist eine Textmarke, und so heißt du *g*

Zitat:

Da aber zudem viel mehr Daten zur Verfügung stehen, als in den einzellnen Dokumenten benötigt wirden, macht es keinen Sinn, alle Tabellen zu durchlaufen und jeden einzellnen Wert abzufragen. Beim umfangreichen Aufträgen kommt da schon einiges an Daten zusammen.

Zitat:

Zudem besteht bei der herkömmlichen Lösung mit den Textmarken im Word immer das Problem bei Fehlern,.. man weiß erstmal nicht liegts an der Textmarke oder an der Software. Über diese CSV Datei lässt sich leicht kontrollieren ob die Word Vorlage ne macke hat, oder zb irgendwelche Daten im Auftrag vergessen wurden o.ä.....

Zitat:

Für mich also in der Anwendung absolut von Vorteil behaftet. Nur zum Programmieren isses hald schwerer *g*

        Dim rng As Word.Range = objDoc.Content
        Dim intFound As Integer = 0
        Dim ausgabe As String = Nothing
        rng.Find.ClearFormatting()
        rng.Find.Forward = True
        rng.Find.Text = "{(.+?)}"
 
        rng.Find.Execute()
 
        Do While rng.Find.Found = True
            intFound += 1
            rng.Find.Execute()
 
        Loop
 
        MessageBox.Show("Gefundende Strings: " & intFound.ToString())

    For Each m As Match In Regex.Matches(Dokumenttext, "{(.+?)}")
      Dim g1 = m.Groups(1)
      Dim text = g1.Value
      Dim index = g1.Index
      Dim länge = g1.Length
    Next

        Try
            For Each DataMatch As Match In Regex.Matches(objDoc.Content.Text, _
              "{(.+?)}")
                Dim g1 = DataMatch.Groups(1)
                Dim text = g1.Value
                Dim DataAddy = g1.Value
                MessageBox.Show("Zellenadresse: " & DataAddy)
            Next
        Catch
            MessageBox.Show("Satz mit x")
        End Try