共用方式為


Publisher) (TextRange.MoveStart 方法

會移動指定範圍的開始位置。 此方法會傳回 Long ,指出所依據的開始位置或範圍或選取範圍實際移動,或是會傳回 0 (零) 如果移動不成功的單位數目。

語法

運算式MoveStart (單元大小)

表達 代表 TextRange 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Unit 必要 PbTextUnit 摺疊的範圍或選取範圍採用的移動單位。 可以是 Microsoft Publisher 類型程式庫中所宣告的 PbTextUnit 常數之一。
大小 必要 Long 要移動的單位數。 如果此數位為正數,則結束字元位置會在檔中向前移動。 如果此數位為負數,則結束會向後移動。 如果結束位置超過起始位置,則範圍會折迭,且兩個字元位置會一起移動。

傳回值

Long

範例

本範例會設定一個文字範圍,移動範圍的起始和結束字元位置,然後格式化整個範圍的字型。

Sub MoveStartEnd() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1).TextFrame _ 
 .TextRange.Paragraphs(Start:=3, Length:=1) 
 
 With rngText 
 .MoveStart Unit:=pbTextUnitLine, Size:=-2 
 .MoveEnd Unit:=pbTextUnitLine, Size:=1 
 With .Font 
 .Bold = msoTrue 
 .Size = 15 
 End With 
 End With 
 
End Sub

支援和意見反應

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