vba - 文字自动化：无需通过剪贴板即可编写 RTF 文本

Question

我试图用存储在变量中的一些RTF 字符串替换 Word (2003/2007) 中的当前选择。

这是当前代码：

Clipboard.SetText(strRTFString, TextDataFormat.Rtf)
oWord.ActiveDocument.ActiveWindow.Selection.PasteAndFormat(0)

有没有办法在不通过剪贴板的情况下做同样的事情。或者有什么方法可以将剪贴板数据推送到安全的地方并在之后恢复？

Answer 1

将 RTF 放入文件而不是剪贴板中，然后从文件中插入，例如

Selection.InsertFile FileName:="myfile.rtf", Range :="", _ ConfirmConversions:=False, Link:=False, Attachment:=False

Answer 2

您可以使用 RichTextbox 将 RTF 转换为文本，反之亦然。

RichTextBox r = new RichTextBox();
r.Rtf = strRTFString;
Console.WriteLine(r.Text);