Macro to change paragraph linespacing to 1.3 in outlook 2010

[Catty]

Hi,



I'm trying to create a macro in outlook that will change the paragraph line spacing (and font name and size of text if possible). Below is the code I've been playing around with, but it's not working 100% and/or it fails @ this line of code "Paragraph.LineSpacing = LinesToPoints(1.3)".

Don't know what I'm doing wrong. Any help would be much appreciated.

Sub LineSpacing()


    Dim objOL As Outlook.Application
    Dim sel As Object

    Set objOL = Outlook.Application
    Set sel = objOL.ActiveInspector().WordEditor.Application.Selection

    For Each Paragraph In sel.Paragraphs
        Paragraph.LineSpacingRule = wdLineSpaceMultiple
        Paragraph.LineSpacing = LinesToPoints(1.3)
        
    Next

End Sub