Set myRange = ActiveDocument.Footnotes(1).Reference myRange.Copy
本示例将选定内容中的备注引用标记设置为红色。
For i= 1 To Selection.Comments.Count Selection.Comments(i).Reference.Font.Color = wpsColorRed Next