帮我写一个VBS 设置RTFBody 的代码示例

根据您的要求，下面是一个设置RTFBody的VBS代码示例：

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection
Set objRange = objDoc.Range

' 设置RTF格式的文本内容
strRTF = "{\rtf1\ansi\deff0{\fonttbl{\f0 Arial;}}{\colortbl ;\red255\green0\blue0;}{\b\i This is some bold and italic text.}}"

With objRange
    ' 设置文本内容
    .Text = "This is a sample text."

    ' 将文本内容设置为RTF格式
    .Collapse 0
    .InsertAfter vbCrLf & strRTF

    ' 将RTF格式的内容转换为可见文本
    .Collapse 0
    .Fields.Add objRange, 34, "MERGEFORMAT"

    ' 设置字体颜色为红色
    .Collapse 0
    .Font.Color = RGB(255, 0, 0)
End With

' 保存并关闭文档
objDoc.SaveAs "C:\path\to\output.rtf"
objDoc.Close

' 退出Word应用程序
objWord.Quit

这段代码创建了一个Word文档，并使用VBS代码设置了RTFBody的内容。首先，我们通过创建Word应用程序对象`objWord`和文档对象`objDoc`来操作Word文档。然后，我们使用`objRange`对象来选择并修改文本内容。代码中的`strRTF`变量是一个包含RTF格式的文本字符串，我们使用`InsertAfter`方法将RTF格式的内容添加到文本的末尾。接下来，我们使用`Fields.Add`方法将RTF格式的内容转换为可见文本。最后，我们使用`Font.Color`属性将字体颜色设置为红色。最后，我们保存并关闭文档，退出Word应用程序。

请注意，这只是一个简单的示例代码，您可以根据自己的需求进行修改和扩展。<span class="em">1</span>
#### 引用[.reference_title]
- *1* [VB病毒代码示例.rar](https://download.csdn.net/download/linkcxy/14967108)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 100%"]
[ .reference_list ]