Преобразовать значение Content Control в String, используя VBA

Question

Я разрабатываю сценарий для форматирования шаблона Outlook и отправки его, нажав на кнопку. Основная цель состоит в том, чтобы использовать межстрочный интервал и 0pt для After/Before Spacing и преобразовать все элементы управления содержимым (например, ComboBox) в моем шаблоне в Text/String.

Sub FormatAndSend()
    Dim CurrentMessage As Outlook.MailItem

    If TypeName(Application.ActiveWindow) = "Inspector" Then
        Set CurrentMessage = Application.ActiveWindow.CurrentItem

        If CurrentMessage.To = "" Then
            If CurrentMessage.CC = "" Then
                If CurrentMessage.BCC = "" Then Exit Sub
            End If
        End If

        CurrentMessage.HTMLBody = Replace(CurrentMessage.HTMLBody, vbCr, vbCrLf)
        'Workaround to Remove Line Spacing (not working)
        '&
        'Convert Content Control selected values to String ...

        CurrentMessage.Send

        Set CurrentMessage = Nothing
    End If
End Sub

Есть ли более простой способ отформатировать существующий шаблон? Я уже пробовал несколько вещей, таких как замена на символы ASCII, элементы HTML, ключевые слова, ...

Кроме того, возможно ли преобразовать выбранные значения управления контентом в обычный текст?

Answer 1

Мне удалось решить мою проблему с помощью регулярных выражений для удаления элементов OOXML и изменения свойств CSS.

Dim regX As Object
Set regX = CreateObject("VBScript.RegExp")

regX.Global = True
regX.MultiLine = True
regX.IgnoreCase = False
regX.Pattern = "<\/?w:[A-z].*?>"

CurrentMessage.HTMLBody = regX.Replace(CurrentMessage.HTMLBody, "")
CurrentMessage.HTMLBody = Replace(CurrentMessage.HTMLBody, "<p class=MsoNormal>", _
                            & "<p class=MsoNormal style='margin:0;line-height:0;'>")
Set regX = Nothing