如何在Outlook中清除正文中的所有格式

Question

我在任何地方都找不到这个问题，所以甚至不可能，因为我们无法在Outlook中记录宏。

但是，我想清除要通过Outlook中的宏回复的电子邮件中的所有文本格式。

由于我使用olReply.HTMLBody并使用Loop以及一些if和elses来构建主体，因此无法在其中格式化主体。 / p>

示例： Clear all text formatting - Outlook

谢谢！

Answer 1

我不确定您的代码看起来如何，但这是使用 ClearFormatting Method 的快速示例，请确保您单击Reply或ReplyAll并选择要设置格式的文本然后运行代码

Option Explicit
Public Sub Exmple()
    Dim wDoc As Word.Document
    Dim rngSel As Word.selection

    If Application.ActiveInspector.EditorType = olEditorWord Then
        Set wDoc = Application.ActiveInspector.WordEditor ' use WordEditor
        Set rngSel = wDoc.Windows(1).selection ' Current selection

        rngSel.ClearFormatting

    End If

    Set wDoc = Nothing
End Sub