Publisher (的 TextRange.Move 方法)

將指定的範圍折迭至其開始位置或結束位置，然後依指定的單位數來移動折迭的物件。 此方法會傳回 Long 表示單位物件實際移動，則會傳回 0 (零) 如果移動不成功的數目。

語法

運算式。移動 (單位、 大小)

表達 代表 TextRange 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Unit	必要	PbTextUnit	摺疊的範圍或選取範圍採用的移動單位。 可以是 Microsoft Publisher 類型程式庫中所宣告的 PbTextUnit 常數之一。
大小	必要	Long	所指定的範圍或選取範圍是要移動的單位數目。 如果 Size 是正數，物件會摺疊到其結束位置和文件中向前移動所指定的單位數目。 如果 Size 是負數，物件會回到其開始位置摺疊，向後移動指定的單位數目。 您也可以在使用Move方法之前，先使用Collapse方法來控制折迭方向。

傳回值

Long

範例

本範例摺疊指定的範圍，並在範圍開頭插入新句子。

Sub MoveText() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Words(Start:=1, Length:=5) 
 With rngText 
 .Move Unit:=pbTextUnitParagraph, Size:=-1 
 .Text = "This adds new text to the beginning of the range. " 
 End With 
End Sub

支援和意見反應

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