Word) (Selection.MoveEndUntil 方法
會移動指定之選取範圍的結束位置,直到在文件中找到任何指定的字元為止。
expression。 MoveEndUntil
( _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"
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。