请问vba对象的复制问题

word vba 里的selection.words(1)语句返回的是一个range类，代表选定区域里的第一个单词。现在我想将这个range类的所有项目（其实主要是单词文本和字体信息）复制到我的一个自定义range对象。如何操作？如果用set，那么是引用。内容并没有复制，并且被引用对象改变时引用的内容也跟着改变。
dim r as range
set r = selection.words(1)

直接用 r = selection.words(1)程序报错。

该如何操作？

可查看一下Duplicate 属性的用法