Private Function CreateWordFile(ArtNr1 As String, Bezeichnung1 As String, Etext1 As Range)
Debug.Print ("Inside creatingWordFile......")
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdTable As Word.Table
Dim xText
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
Debug.Print (Etext1.FormattedText)
Dim tex As String
wrdDoc.Range.FormattedText = Etext1.FormattedText
wrdDoc.SaveAs ("D:\MarcelHamade\_output\_" & ArtNr1 & ".doc")
wrdDoc.Close
wrdApp.NormalTemplate.Saved = True
wrdApp.Quit
End Function