Wrap2Array

Syntax

array() = RTF.Wrap2Array(Text, MaxTwipsWidth[, RowDelimiter][, FontName]
[, FontSize][, Bold])

Description

Zet tekst om naar een array van regels, waarbij woordafbreking wordt toegepast bij overschrijding van een ingestelde maximaalbreedte voor de tekst.

Parameter	Description
Text	De tekst die moet worden omgezet naar een array van losse regels
MaxTwipsWidth	De maximale breedte van een regel tekst. Uitgedrukt in twips.
Rowdelimiter	Optioneel. Regelscheidingsteken. Standaardwaarde is " \n ".
FontName	Optioneel. Naam van het lettertype, standaardwaarde is "Arial."
FontSize	Optioneel. Grootte van het lettertype in points. Numeriek, standaardwaarde is 10.
Bold	Optioneel. Indien True wordt vetschrift toegepast voor de berekening van de regelbreedte. Standaardwaarde is False.

See Also

CalcTextWidth

Example

Sub Main

Dim n%, Tekst$

Redim arr() as String

Tekst$ = "Dit is een regel tekst. \n Dit is ook een regel tekst met" _

& " een lange reeks van woorden en woorden enzovoorts. Ook" _
& " loopt de tekst nog steeds door in deze variabele."

arr() = RTF.Wrap2Array(Tekst$, 1200)

For n% = 0 to UBound(arr)

debug.print arr(n%)

Next n%

End Sub