全部显示本属性返回一个只读 Font 对象，该对象代表了指定字体的字符格式。
expression.Duplicate
expression 必需。该表达式返回一个 Font 对象。
应用于 LetterContent 对象的 Duplicate 属性。
返回一个只读 LetterContent 对象，该对象代表由“英文信函向导”创建的指定信件的内容。
expression.Duplicate
expression 必需。该表达式返回一个 LetterContent 对象。
应用于 ParagraphFormat 对象的 Duplicate 属性。
返回一个只读 ParagraphFormat 对象，该对象代表指定段落的段落格式。
expression.Duplicate
expression 必需。该表达式返回一个 Paragraph 对象。
返回一个只读 Range 对象，该对象代表指定区域的所有属性。
expression.Duplicate
expression 必需。该表达式返回一个 Range 对象。
应用于 TextRetrievalMode 对象的 Duplicate 属性。
返回一个只读 TextRetrievalMode 对象，该对象代表与从指定的 Range 对象检索文字相关的选项。
expression.Duplicate
expression 必需。该表达式返回一个 TextRetrievalMode 对象。
可用 Duplicate 属性设置重复的 Font、LetterContent 或 ParagraphFormat 对象的所有属性。可将 Duplicate 属性返回的对象赋给另一个相同类型的对象，从而一次应用该对象的所有设置。在将重复对象赋给另一个对象之前，可更改重复对象的任何属性，而不会影响源对象。
通过复制 Range 对象，可更改所复制的区域的开始或结尾字符的位置，而不会更改源区域。
本示例将 MyDupFont 变量设为所选内容的字符格式，从 MyDupFont 中删除加粗格式，并添加倾斜格式。然后创建一篇新文档，插入文本，再将 MyDupFont 中保存的格式应用于该文本。
Set myDupFont = Selection.Font.Duplicate
With myDupFont
.Bold = False
.Italic = True
End With
Documents.Add
Selection.InsertAfter "This is some text."
Selection.Font = myDupFont本示例复制活动文档第一段的段落格式，并将该格式保存在 myDup 变量中，然后将 myDup 的左缩进量改为 1 英寸。再创建一篇新文档，插入文本，将 myDup 中保存的段落格式应用于该文本。
ActiveDocument.Range(Start:=0, End:=0).InsertAfter _
"Paragraph Number 1"
Set myDup = ActiveDocument.Paragraphs(1).Format.Duplicate
myDup.LeftIndent = InchesToPoints(1)
Documents.Add
Selection.InsertAfter "This is a new paragraph."
Selection.Paragraphs.Format = myDup本示例实现的功能是：复制分配给 myRange 变量的 Range 对象。然后将所复制的区域折叠到结尾点，扩展一个字符单位，并将该字符设为大写。然后将倾斜格式应用于原始的 Range 对象 (myRange)。
Set myRange = Selection.Range
With myRange.Duplicate
.Collapse Direction:=wdCollapseEnd
.Expand Unit:=wdCharacter
.Case = wdUpperCase
End With
myRange.Font.Italic = True