VBA：如何在粘贴之前修改剪贴板中文本的颜色

Question

我在Microsoft Word中有很多复制粘贴功能，粘贴后，我需要使用与黑色不同的颜色粘贴文本。

  

Sub PasteUnformattedText（）

     

Selection.EndKey Unit：= wdLine

     

Selection.Font.Color = 12611584

     

Selection.PasteSpecial DataType：= wdPasteText

     

End Sub

如何更改粘贴文字的颜色需要做什么？我已尝试使用＆＃34; Selection.Font.Color = 12611584＆＃34;，但颜色仍然是默认颜色：黑色。

Answer 1

解决方案：只需添加

即可

  

将MyText Dim作为字符串

MyText = " "

Selection.TypeText (MyText)

前

  

Selection.PasteSpecial DataType：= wdPasteText