How do I get a line spacing of 1.0? The macros recorder does not work properly.

[JohnLivewire]

I'm trying to get a line spacing of 1.0 using VBA but something is wrong with the macros recorder.

1. In the ribbon I click: Developer > Record Macro
2. To start recording, I click: ok
3. In the ribbon, I click: Home > Line and Paragraph Spacing > 1.0
4. In the ribbon, I click: Developer > Stop Recording

This is the VBA code I got from that recording:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(32888)
End Sub

When I try to run that code. I get a pop up window with this error message:

Run-time error '5149':

The measurement must be between 0.7 pt and 1584 pt.

How do I get a line spacing of 1.0 using VBA?

[Kilroy]

This is what I use.

Sub linespacing()
Selection.WholeStory
With Selection.ParagraphFormat
.SpaceBefore = 1
.SpaceBeforeAuto = False
.SpaceAfter = 1
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
End Sub

[JohnLivewire]

Is this the exact same thing?

[gmaxey]

No it isn't.

Selection.ParagraphFormat.LineSpacing = LinesToPoints(1)

[macropod]

The line height using wdLineSpaceSingle is the same as when using:

With .ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(1)
End With

[JohnLivewire]

thank you