Word VBA教程:Duplicate属性

应用于 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对象,可更改所复制的区域的开始或结尾字符的位置,而不会更改源区域。

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号