Vba 仅在电子邮件正文中循环

我想运行一个宏，只影响当前打开的电子邮件的正文（例如，不影响签名）

如果选择了主体，则以下代码有效。我们如何做到这一点而不需要选择

Sub FixParagraphSpacing()

    Dim objOL As Application
    Dim sel As Object

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

    For Each para In sel.Paragraphs
        para.SpaceBefore = 0.3 * 11
        para.SpaceAfter = 0
    Next para

End Sub

这是解决办法

Sub FixParagraphSpacing()
     Dim objOL As Application
     Dim doc As Object
     Dim para As Object

     Set objOL = Application
     Set doc = objOL.ActiveInspector().WordEditor

     For Each para In doc.Paragraphs
         para.SpaceBefore = 0.3 * 11
         para.SpaceAfter = 0
     Next para
 End Sub

这是解决办法

Sub FixParagraphSpacing()
     Dim objOL As Application
     Dim doc As Object
     Dim para As Object

     Set objOL = Application
     Set doc = objOL.ActiveInspector().WordEditor

     For Each para In doc.Paragraphs
         para.SpaceBefore = 0.3 * 11
         para.SpaceAfter = 0
     Next para
 End Sub