TextRange.Combine method - Developer Area

API Documentation > CorelDRAW > 2019.2 > TextRange > IVGTextRange

TextRange.Combine method

Combines the current text range with the given range

Syntax:

Sub Combine(ByVal Range As TextRange)

Parameters:

Name	Type	Description
Range	TextRange	Specifies the text range to be combined

Remarks:

The Combine method combines the current text range with a specified range.

Examples:

The following VBA example stores the fourth word and the second line in separate text ranges. It duplicates the fourth word and combines it with the text range for the second line. Bold formatting is applied to the fourth word, and the second line is underlined. The combined text range is then filled with red.

Sub Test()
  Dim t As Text
  Dim s As Shape
  Dim trLine As TextRange
  Dim trWord As TextRange
  Dim tr As TextRange
  Dim d As Document
  Set d = CreateDocument
  Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, _
    "This is a line 1." & vbCr & "This is line 2.")
  Set t = s.Text
  Set trWord = t.Story.Words(4)
  Set trLine = t.Story.Lines(2)
  Set tr = trWord.Duplicate
  tr.Combine trLine
  trWord.Bold = True
  trLine.Underline = cdrSingleThickFontLine
  tr.Fill.UniformColor.RGBAssign 155, 0, 0
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