Private Sub Command1_Click()
Dim objWord As New
Word.Application
'-- Show Microsoft Word
' if you want to
hide it, replace
' the "True" below with
"False"
objWord.Visible = True
'-- Add new
Document
objWord.Documents.Add
'-- Add text to
Document
objWord.Selection.TypeText "This is the text
VB-Town.com"
'-- Select all
Text
objWord.Selection.WholeStory
'-- Change Font
Size
objWord.Selection.Font.Size = 50
'-- uncomment the following line to change the font
color
'objWord.Selection.Font.Color = wdColorRed
'-- uncomment the following line if you want
'--
to prompt the user to save the document
'
objWord.Documents.Save
'-- uncomment the following line if you want
to
'-- print the document
'objWord.PrintOut
Set objWord =
Nothing
End Sub