Sub test()
Dim TextBox1 As String
stringToDOC TextBox1, "K:\Bernd\test.doc"
End Sub
Sub test()
Dim TextBox1 As String
stringToDOC Tabelle1.TextBox1.Text, Pfad
End Sub
Option Explicit
Sub stringToDOC(Text As String, FileName As String)
Dim objWORD As Object, objDOC As Object
Set objWORD = CreateObject("Word.Application")
Set objDOC = objWORD.Documents.Add
objDOC.Paragraphs(1) = Text
objDOC.SaveAs FileName
objDOC.Close
objWORD.Quit
Set objDOC = Nothing
Set objWORD = Nothing
End Sub
Sub test()
Dim TextBox1 As String
stringToDOC UserForm1.TextBox1.Text, "C:\Word\test.doc"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen