Erays
04-15-2005, 12:53 PM
Sub HeyLetter()
Dim Word As Object
Dim fSlash As String, dAddy As String
fSlash = Application.PathSeparator
dAddy = Environ("userprofile") & "\Desktop\"
'-- Begin the Word setup
Application.ScreenUpdating = False
Set Word = CreateObject("Word.Basic")
Word.FileNewDefault
Word.AppShow
Word.FormatFont Font:="Courier New", Points:=12
Word.Bold 1
Word.FormatParagraph Alignment:=0
Word.Insert " Hey I just wanted to say have a nice weekend. "
Word.Insert (I would like to insert a Line break here)
Word.Insert " My Name"
Word.InsertPara
Word.FormatFont Font:="Courier New", Points:=10
Word.Bold 0
Word.FormatParagraph Alignment:=0
Application.ScreenUpdating = True
End Sub
Dim Word As Object
Dim fSlash As String, dAddy As String
fSlash = Application.PathSeparator
dAddy = Environ("userprofile") & "\Desktop\"
'-- Begin the Word setup
Application.ScreenUpdating = False
Set Word = CreateObject("Word.Basic")
Word.FileNewDefault
Word.AppShow
Word.FormatFont Font:="Courier New", Points:=12
Word.Bold 1
Word.FormatParagraph Alignment:=0
Word.Insert " Hey I just wanted to say have a nice weekend. "
Word.Insert (I would like to insert a Line break here)
Word.Insert " My Name"
Word.InsertPara
Word.FormatFont Font:="Courier New", Points:=10
Word.Bold 0
Word.FormatParagraph Alignment:=0
Application.ScreenUpdating = True
End Sub