共用方式為


Word) (Range.Sort 方法

會排序指定之範圍內的段落。

語法

運算式Sort (ExcludeHeaderFieldNumberSortFieldTypeSortOrderFieldNumber2SortFieldType2SortOrder2FieldNumber3SortFieldType3SortOrder3SortColumnSeparatorCaseSensitiveBidiSortIgnoreTheIgnoreKashidaIgnoreDiacriticsIgnoreHeLanguageID)

需要 expression。 代表 Range 物件的變數。

參數

名稱 必要/選用 資料類型 描述
ExcludeHeader 選用 Variant True 是表示 第一列或段落標頭排除此排序作業。 預設值為 False
FieldNumber 選用 Variant 排序所依據的欄位。 Microsoft Word 會先依據 FieldNumber 排序,然後依據 FieldNumber2 排序,再依據 FieldNumber3 排序。
SortFieldType 選用 Variant FieldNumber 各自的排序類型。 可以是 WdSortFieldType 常數之一。 預設值為 wdSortFieldAlphanumeric 。 這些常數的一些可能無法使用,視您所選取或安裝的語言支援 (例如 US English) 而定。
SortOrder 選用 Variant 使用排序 FieldNumber 時的排序順序。 可以是任何 WdSortOrder 常數。
FieldNumber2 選用 Variant 排序所依據的欄位。
SortFieldType2 選用 Variant FieldNumber2 各自的排序類型。 可以是 WdSortFieldType 常數之一。 預設值為 wdSortFieldAlphanumeric 。 這些常數的一些可能無法使用,視您所選取或安裝的語言支援 (例如 US English) 而定。
SortOrder2 選用 Variant 使用排序 FieldNumber2 時的排序順序。 可以是任何 WdSortOrder 常數。
FieldNumber3 選用 Variant 排序所依據的欄位。
SortFieldType3 必要 這些常數的一些可能無法使用,視您所選取或安裝的語言支援 (例如 US English) 而定。 預設值為 wdSortFieldAlphanumeric
SortOrder3 選用 Variant 使用排序 FieldNumber3 時的排序順序。 可以是任何 WdSortOrder 常數。
SortColumn 選用 Variant True 是表示 排序 Range 物件所指定的資料行。
Separator 選用 Variant 欄位分隔符號的類型。 可以是 WdSortSeparator 常數之一。
CaseSensitive 選用 Variant True 是表示 排序使用區分大小寫。 預設值為 False
BidiSort 選用 Variant True 可排序根據從右至左語言規則。 此引數可能無法使用時,根據您所選取或安裝的語言支援 (例如 US English)。
IgnoreThe 選用 Variant True 可忽略阿拉伯文字元集 alef lam 排序從右至左書寫的語言文字時。 此引數可能無法使用時,根據您所選取或安裝的語言支援 (例如 US English)。
IgnoreKashida 選用 Variant True 可忽略對 kashida 排序從右至左書寫的語言文字時。 此引數可能無法使用時,根據您所選取或安裝的語言支援 (例如 US English)。
IgnoreDiacritics 選用 Variant True 是表示 排序從右至左書寫的語言文字時忽略雙向控制字元。 此引數可能無法使用時,根據您所選取或安裝的語言支援 (例如 US English)。
IgnoreHe 選用 Variant True 可忽略希伯來文排序從右至左書寫的語言文字時,請字元他。 此引數可能無法使用時,根據您所選取或安裝的語言支援 (例如 US English)。
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 支援與意見反應