TextRange.Collapse メソッド (Publisher)

選択を解除します。 選択が解除されると、選択開始位置と選択終了位置は等しくなります。

構文

式。折りたたみ (方向)

式TextRange オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Direction	必須	PbCollapseDirection	指定範囲または選択範囲を解除する方向です。 Microsoft Publisher タイプ ライブラリで宣言されている PbCollapseDirection クラスの定数のいずれかを指定できます。

注釈

PbCollapseEnd を使用して段落全体を参照する範囲を縮小する場合は、最後の段落は、(次の段落の先頭) をマークした後範囲が配置されます。 ただし、範囲を折りたたんだ後に MoveEnd メソッドを使用して、範囲を 1 文字戻すことができます。

例

次の使用例は、作業中の文書で、最初のページの最初の図形の 2 番目の段落の先頭にテキストを挿入します。 この例では、指定した図形はテキスト枠であり、他のタイプの図形ではありません。

Sub CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

次の使用例は、作業中の文書で、最初のページの最初の図形の最初の段落の末尾に、新しいテキストを挿入します。 この例では、指定した図形はテキスト枠であり、他のタイプの図形ではありません。

Sub CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。