如何在不使用vba从条件格式单元格复制CF规则的情况下复制格式和值

我尝试从excel复制数据并通过电子邮件自动发送。除CF外，一切正常

我应用了下面的代码，但它也符合条件格式规则，因为格式在粘贴到outlook时发生了更改。请帮助我们解决此问题

函数RangetoHTML（rng作为范围）

---

结束函数

条件格式被认为是格式，因此xlPasteFormats是粘贴CF的原因。我会尝试应用

.Cells(1).FormatConditions.Delete 

---

复制完值后，在开始粘贴选项之前。

在这个小示例中，我们从一小块具有条件格式的单元格开始。宏：

打开单词

创建新文档

复制表格并将其粘贴到文档中

保存文档

关闭文档和Word

将其放入标准模块中。生成的Word表格的格式应与Excel表格相同，但不带“条件”

选择您自己的文件和文件夹名称

---

您必须在VBA>工具>引用中包含对Word对象模型的引用

为什么不删除xlPasteFormats代码行？如果我删除了xlPasteFormats，它将不会粘贴现有格式，如边框、背景色等……删除格式的任何条件方面的一种方法是首先将范围粘贴到Word，然后从Word粘贴到Outlook。您可以共享一个相同的示例代码吗？请参阅我的帖子……。如果我应用了此选项，则会删除整个格式结果，如字体颜色、背景等。。。但我不想删除它。我只需要删除CF规则。我回去后意识到它必须在粘贴后插入，您根本不需要使用粘贴。这里是一个示例

Range（“A6”）。选择Selection。Copy Range（“C9”）。选择ActiveSheet。粘贴Selection。FormatConditions。删除
No，它不起作用。我还需要在粘贴之前删除CF规则。你能编辑你的问题并包含所有代码吗。也许更容易看出问题所在？也，您确定要从中复制数据的字段的格式与CF应用的格式不同吗？当我添加
单元格时。FormatConditions.Delete
，在两者之间加上..End With语句，一切对我都有效。您能告诉我如何将此数据从word复制到outlook以发送邮件吗？@Deva对不起……这是我不知道的……我只使用基于网络的电子邮件。
.Cells(1).FormatConditions.Delete 

Sub UsingWord()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
    Range("A1:B2").Copy
    With wrdDoc
        wrdApp.Selection.PasteAndFormat (wdPasteDefault)
        .SaveAs ("C:\TestFolder\tdoc.docx")
        .Close
    End With
    wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub