PDA

View Full Version : [SOLVED] How do I put insert Linebreak



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

Kieran
04-15-2005, 06:52 PM
try


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 Chr(10)
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

Erays
04-15-2005, 07:55 PM
Thank you now it works just fine