Textbox.Value as a new text file

[Guest]

I need to prompt the Save as dialog box, filter by *doc (and *.txt
if possible) have the Textbox.Value as the body of the txt/doc file which
will be named by the user to his/her convenience.

Thanks in advance

 

[Dan R.]

Luis,

Try something like this:


Private Sub CommandButton1_Click()
'must have a reference to the word object library
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.application")
Set wdDoc = wdApp.Documents.Add

'wdApp.Visible = True
wdDoc.Sentences(1) = Me.TextBox1.Text

wdApp.ActiveDocument.Save
wdDoc.Close
Set wdDoc = Nothing
wdApp.Quit
Set wdApp = Nothing
End Sub

 

[Guest]

Thanks a lot

 

[LuisE]

Dan,

How can I force the file to be saved as .txt only?
Thanks