Simple macro in Outlook to remove spacing: Object required error message

[CWL88]

I created a macro to remove spacing successfully in Word and it looks like this:

Selection.Style = ActiveDocument.Styles("No Spacing") -- with the appropriate Sub and End Sub.

When I created a macro in Outlook and typed in the same content, it did not work.
Error message was:
Run-time error '424':
Object required

What did I do wrong?

I am obviously a VBA newbie. I want to select text in an email and use a keyboard macro to remove spacing -- without having to right-click to access paragraph settings or open the email and go to Format Text.

Thank you.

[June7]

Why would you expect Word code to work in Outlook?

Emails are not document files.

You want to edit an incoming email?

[CWL88]

Hi June7,
I was hoping that formatting code that works in Word would work in Outlook. I thought the underlying editor in Outlook is the same 'engine' as in Word. Where can I go to learn the code(s) specific to Outlook?
Thank you very much!

[somit]

No that is not right way to use same code on word and outlook. Try this code:


<pre>Sub FixParagraphSpacing()
Dim objOL As Application
Dim objDoc As Object
Dim objSel As Object
Set objOL = Application
Set objDoc = objOL.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.ParagraphFormat.SpaceBefore = 0
objSel.ParagraphFormat.SpaceBeforeAuto = False
objSel.ParagraphFormat.SpaceAfter = 0
objSel.ParagraphFormat.SpaceAfterAuto = False
Set objOL = Nothing
Set objDoc = Nothing
Set objSel = Nothing End Sub </pre>

may be it is helpful for you.