通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。