Outlook macro to set paragraph spacing

Can someone show me how to write an Outlook 2007 macro that I can hookup to a button that does what the code  below (lifted from Word) does:


Function para()
  With Selection.ParagraphFormat
    .SpaceAfter = 12
    .SpaceBefore = 12
  End With
End Function

Open in new window

tfield98Asked:
Who is Participating?
 
David LeeConnect With a Mentor Commented:
Hi, tfield98.

Try this.
Function para()
    Dim olkDoc As Object, _
        wrdSelection As Object
    Set olkDoc = Application.ActiveInspector.WordEditor
    Set wrdSelection = olkDoc.Application.Selection
    With wrdSelection.ParagraphFormat
        .SpaceAfter = 12
        .SpaceBefore = 12
    End With
    Set olkDoc = Nothing
    Set wrdSelection = Nothing
End Function

Open in new window

0
 
tfield98Author Commented:
Perfect! Exactly what I was looking for. Thanks so much!!
0
 
David LeeCommented:
You're welcome.  Glad I could help.
0
 
tfield98Author Commented:
Although Outlook has a default template for new emails, I hadn't found a way to have the format of replies set to a default. I was doing it by hand.  This macro lets me simplify the process. It's been bugging me for years!!  Thanks again, BDF!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.