閱讀英文

共用方式為


Word) (Selection.MoveEndUntil 方法

會移動指定之選取範圍的結束位置,直到在文件中找到任何指定的字元為止。

語法

expressionMoveEndUntil( _Cset_ , _Count_ )

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

參數

名稱 必要/選用 資料類型 描述
Cset 必要 Variant 一個或多個字元。 這個引數會區分大小寫。
數目 選用 Variant 所指定的選取範圍是要移動的字元數上限。 可以是數字或 Count選取 。 如果 Count 是正值,選取範圍是文件中向前移動。 如果是負數,會向後移動選取項目。 預設值為 正值

傳回值

Long

註解

此方法會傳回 Long 值,代表指定之選取範圍的結束位置所移動的字元數。 如果計數大於 0 (零),此方法會傳回移動的字元加上 1 的數字。 如果 Count 小於 0 (零),這個方法會傳回減 1 之間移動的字元數。 如果找不到任何摺字元,不變更選取範圍並方法會傳回 0 (零)。 如果將結束位置往回移動至原始開始位置之前的位置點,就會將開始位置設定為新的結束位置。

如果文件中的移動方向是向前移動,則選取範圍就會跟著展開。

範例

這個範例會將文件中的選取範圍向前延伸,直到找到字母 "a" 為止。 接著這個範例會將選取範圍再展開一個字元,將字母 "a" 也包含在內。

With Selection 
 .MoveEndUntil Cset:="a", Count:=wdForward 
 .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
End With

這個範例會將文件中的選取範圍向前延伸,直到找到定位點為止。 如果在下面 100 個字元中都找不到定位字元,就不會移動選取範圍。

char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100) 
If char = 0 Then StatusBar = "Selection not moved"

另請參閱

Selection 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應