Thread: [Solved] Macro to change paragraph linespacing to 1.3 in outlook 2010
View Single Post
 
Old 02-14-2014, 07:03 AM
Catty Catty is offline Windows 7 32bit Office 2010 32bit
Advanced Beginner
  
Join Date: Nov 2013
Posts: 39
Catty is on a distinguished road
Default Macro to change paragraph linespacing to 1.3 in outlook 2010
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.

Code:
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
Reply With Quote