Range.Sort 方法 (Word)

对指定范围中的段落进行排序。

语法

表达式。Sort (ExcludeHeader、 FieldNumber、 SortFieldType、 SortOrder、 FieldNumber2、 SortFieldType2、 SortOrder2、 FieldNumber3、 SortFieldType3、 SortOrder3、 SortColumn、 Separator、 CaseSensitive、 BidiSort、 IgnoreThe、 IgnoreKashida、 IgnoreDiacritics、 IgnoreHe、 LanguageID)

expression 是必需的。 一个代表 Range 对象的变量。

参数

名称	必需/可选	数据类型	说明
ExcludeHeader	可选	Variant	真 要排除第一个行或段落标题进行排序。 默认值为 False 。
FieldNumber	可选	Variant	作为排序依据的域。 Microsoft Word 依次按 FieldNumber、FieldNumber2、FieldNumber3 排序。
SortFieldType	可选	Variant	数字为各自的排序类型。 可以是 WdSortFieldType 常量之一。 默认值是 wdSortFieldAlphanumeric 。 其中某些常量可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
SortOrder	可选	Variant	对数字进行排序时使用的排序顺序。 可以是任何 WdSortOrder 常量。
FieldNumber2	可选	Variant	作为排序依据的域。
SortFieldType2	可选	Variant	FieldNumber2 为各自的排序类型。 可以是 WdSortFieldType 常量之一。 默认值是 wdSortFieldAlphanumeric 。 其中某些常量可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
SortOrder2	可选	Variant	排序顺序排序 FieldNumber2 时使用。 可以是任何 WdSortOrder 常量。
FieldNumber3	可选	Variant	作为排序依据的域。
SortFieldType3	必需		其中某些常量可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。 默认值是 wdSortFieldAlphanumeric 。
SortOrder3	可选	Variant	排序顺序排序 FieldNumber3 时使用。 可以是任何 WdSortOrder 常量。
SortColumn	可选	Variant	如此 只指定 Range 对象的列进行排序。
Separator	可选	Variant	字段分隔符的类型。 可以是 WdSortSeparator 常量之一。
CaseSensitive	可选	Variant	真 要排序时区分大小写。 默认值为 False 。
BidiSort	可选	Variant	真 要排序按照从右到左语言规则。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
IgnoreThe	可选	Variant	真 要忽略阿拉伯语字符 alef lam 从右向左的语言文本进行排序时。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
IgnoreKashida	可选	Variant	为 从右向左的语言文本进行排序时忽略 kashida。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
IgnoreDiacritics	可选	Variant	为 从右向左的语言文本进行排序时忽略双向控制字符。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
IgnoreHe	可选	Variant	真 要忽略希伯来字符 he 从右向左的语言文本进行排序时。 此参数可能不可用，这取决于您所选择或安装的语言支持 (例如美国英语)。
LanguageID	可选	Variant	指定排序语言。 可以是 WdLanguageID 常量之一。 请参阅对象浏览器的 WdLanguageID 常量的列表。

示例

本示例在新文档中插入三行文本，然后按字母数字升序对行进行排序。

Sub NewParagraphSort() 
 Dim newDoc As Document 
 Set newDoc = Documents.Add 
 newDoc.Content.InsertAfter "pear" & Chr(13) _ 
 & "zucchini" & Chr(13) & "apple" & Chr(13) 
 newDoc.Content.Sort SortOrder:=wdSortOrderAscending 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。