如何从Word创建的电子邮件中删除ContentControls？

Question

我有Word VBA代码，该代码可创建电子邮件并将格式化的文本粘贴到电子邮件中。

此文本包含我的Word文档中想要的ContentControl字段，但电子邮件中没有。

我可以计算电子邮件中抄送的数量，并尝试适应我在Word中删除它们所找到的代码，但是它只会删除我的Word文档中的内容。

这是代码：

'Copy the open document
Selection.WholeStory
Selection.Copy
Selection.End = True

Dim objInsp As Outlook.Inspector
Dim wdEditor As Word.Document
Set objInsp = oItem.GetInspector
Set wdEditor = objInsp.WordEditor


'Paste the current document
wdEditor.Characters(i).PasteAndFormat (wdFormatOriginalFormatting)
ContentControlInEmailTotal = wdEditor.ContentControls.Count


'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
Set objInsp = Nothing
Set wdEditor = Nothing

我需要保持其格式不变，这样就无法使用纯文本格式。我在想如果可能的话，我会尝试创建一个临时的虚拟文件来执行相同的操作。