Question

全部显示

应用于 Font 对象的 Duplicate 属性。

本属性返回一个只读 Font 对象，该对象代表了指定字体的字符格式。

expression.Duplicate

expression 必需。该表达式返回一个 Font 对象。

应用于 LetterContent 对象的 Duplicate 属性。

返回一个只读 LetterContent 对象，该对象代表由“英文信函向导”创建的指定信件的内容。

expression.Duplicate

expression 必需。该表达式返回一个 LetterContent 对象。

应用于 ParagraphFormat 对象的 Duplicate 属性。

返回一个只读 ParagraphFormat 对象，该对象代表指定段落的段落格式。

expression.Duplicate

expression 必需。该表达式返回一个 Paragraph 对象。

应用于 Range 对象的 Duplicate 属性。

返回一个只读 Range 对象，该对象代表指定区域的所有属性。

expression.Duplicate

expression 必需。该表达式返回一个 Range 对象。

应用于 TextRetrievalMode 对象的 Duplicate 属性。

返回一个只读 TextRetrievalMode 对象，该对象代表与从指定的 Range 对象检索文字相关的选项。

expression.Duplicate

expression 必需。该表达式返回一个 TextRetrievalMode 对象。

说明

可用 Duplicate 属性设置重复的 Font、LetterContent 或 ParagraphFormat 对象的所有属性。可将 Duplicate 属性返回的对象赋给另一个相同类型的对象，从而一次应用该对象的所有设置。在将重复对象赋给另一个对象之前，可更改重复对象的任何属性，而不会影响源对象。

通过复制 Range 对象，可更改所复制的区域的开始或结尾字符的位置，而不会更改源区域。

示例

当应用于 Font 对象时。

本示例将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

当应用于 ParagraphFormat 对象时。

本示例复制活动文档第一段的段落格式，并将该格式保存在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

当应用于 Range 对象时。

本示例实现的功能是：复制分配给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