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.
|
|
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
|