TextRange.Collapse method - Developer Area

API Documentation > Corel DESIGNER > 20.1 > TextRange > IVGTextRange

TextRange.Collapse method

Collapses the text range

Syntax:

Sub Collapse(Optional ByVal ToEnd As Boolean = True)

Parameters:

Name	Type	Description
ToEnd	Boolean

Remarks:

The Collapse method collapses a text range.

Examples:

The following VBA example displays the positions of the starting and ending characters of the text range before and after the text is collapsed. It then inserts text and applies bold formatting to the inserted text.

Sub Test()
  Dim t As Text
  Dim s As Shape
  Dim tr As TextRange
  Dim d As Document
  Set d = CreateDocument
  Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example.")
  Set t = s.Text
  Set tr = t.Story.Words(2, 2)
  MsgBox "The text range is from " & tr.Start & " to " & tr.End & " Characters"
  tr.Collapse
  MsgBox "The text range is from " & tr.Start & " to " & tr.End & " Characters"
  tr.Text = " This will be inserted at the current position. "
  tr.Bold = True
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25