none
Anzahl Linien in einer Textbox RRS feed

  • Frage

  • Hallo

    Ich möchte mittels VBA gerne die Anzahl Linien/Zeilen innerhalb einer Textbox ermitteln um die die breiteste Zeile zu ermitteln. Bis anhin habe ich das so gemacht:

        Set shp = hfHeader.Shapes("Textbox_Adresskopf")
        
        With hfHeader.Shapes("Textbox_Adresskopf")
            .Select
        End With
    
        Selection.HomeKey Extend:=wdMove
    
        For intAnzZeilen = 1 To 14
            arr(intAnzZeilen) = getLineWidth
            'auf nächste Linie gehen
            Selection.HomeKey Unit:=wdLine
            Selection.MoveDown Unit:=wdLine, count:=1
        Next intAnzZeilen

    Wie kann ich die Anzahl Zeilen dynamisch ermitteln, wenn ich nicht weiss wie viele Zeilen die Textbox enthält? Gibt es eine Möglichkeit die Anzahl Linien innerhalb einer Textbox zu ermitteln und die allenfalls "schöner" zu machen als mit "HomeKey" und "MoveDown"?

    Vielen Dank für eure Hilfe.

    Gruss Thomas
    Samstag, 15. Juni 2019 22:07