Publisher) (TextRange.Move 方法

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

語法

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

運算式 代表 TextRange 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Unit 必要 PbTextUnit 摺疊的範圍或選取範圍採用的移動單位。 可以是 Microsoft Publisher 型別程式庫中宣告的其中一個 PbTextUnit 常數。
大小 必要 Long 所指定的範圍或選取範圍是要移動的單位數目。

如果 Size 是正數，物件會摺疊到其結束位置和文件中向前移動所指定的單位數目。 如果 Size 是負數，物件會回到其開始位置摺疊，向後移動指定的單位數目。

您也可以在使用 [移動] 方法之前，先使用 [摺疊] 方法來控制摺疊方向。

傳回值

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 支援與意見反應。

  • 上次更新時間：