vb.net如何改变字符串样式粘贴到Word

Question

需求如下:
首先定义一串字符串
Dim str as string="这是一串文字"

如何改变文字颜色？比如颜色改成红色后将字符串复制到系统剪贴板中
或者字符串复制到剪贴板后再改
Clipboard.SetText(str)

打开Word后使用Ctrl+V实现粘贴出红色的"这是一串文字"

Answer 1

需求
VBA：如何在粘贴前从剪贴板修改文本的颜色

---

解决办法
使用下面的代码即可：

Sub PasteUnformattedText()


Selection.EndKey Unit:=wdLine

Selection.Font.Color = 12611584

MyText = " "
Selection.TypeText (MyText)
Selection.PasteSpecial DataType:=wdPasteText

End Sub

参考:
https://stackoverflow.com/questions/30189566/vb-2010-changing-the-color-of-a-word-in-a-textbox-every-copy-of-the-word