Now I have figured out in Microsoft Word, that the code identifies whatever llne numbers I decide and automatically changes the font I decided for the particular lines.....So the example below is as to Lines 1, 2, 4 and 5, as when I create a Calendar Event in Outlook 2007, it puts in the Body field of the Calendar Event, a list of words and even thought there are more, the beginning of the words are Lines 1,2, 4 abd 5. So below is the code for the Microsoft Word, and how do we make this work in Outlook 2007 for the Body field of a Calendar Event.
Sub SelectLine1_2_3_5()
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=1
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 14
Selection.Font.Color = -587137025
Selection.Font.Bold = True
Selection.Font.UnderlineColor = -587137025
Selection.Font.Underline = wdUnderlineSingle
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=2
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 14
Selection.Font.Color = -553582593
Selection.Font.Bold = True
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 14
Selection.Font.Color = -587137025
Selection.Font.Bold = True
Selection.Font.UnderlineColor = -587137025
Selection.Font.Underline = wdUnderlineSingle
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=5
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 14
Selection.Font.Color = -553582593
Selection.Font.Bold = True
End Sub