本示例将 myRange 设置为活动文档中第一个脚注引用标记,并复制该引用标记。

Set myRange = ActiveDocument.Footnotes(1).Reference
myRange.Copy

 

本示例将选定内容中的备注引用标记设置为红色。

For i= 1 To Selection.Comments.Count
    Selection.Comments(i).Reference.Font.Color = wpsColorRed
Next