需要将文档的所有段落的第一个单词变成黑体，颜色变为特定颜色（例如绿色），这个宏该怎么写？

Sub 段首字设置()
Dim pr As Paragraph
For Each pr In ThisDocument.Paragraphs
Selection.MoveRight wdWord, 1, wdExtend
Selection.Font.Color = wdColorGreen
Selection.Move wdParagraph, 1
Next
End Sub

---------------------------------------------------------------

用basic编程哦,学习一下