Metrische Länge eines Textes ermitteln

28/05/2008 - 22:08 von Thomas Wiedmann | Report spam
Hallo,

wie kann man mit VBA die metrische Lànge eines in Word dargestellten Textes
ermitteln?

Konkret:
Von einem bestimmten Text, der markiert wurde und in Word - bedingt durch
Schriftart und -grad - eine bestimte Lànge in cm beansprucht, möchte ich per
VBA diese Lànge in cm wissen (und zwar für den Fall, daß der Text lànger ist
als die Begrenzung durch den rechten Rand von z. B. 16 cm und ich den
rechten Rand - abhàngig von der Textlànge - anpassen möchte). Wie geht das?

Danke für alle guten Tips.

Thomas Wiedmann
 

Lesen sie die antworten

#1 Christian Freßdorf
29/05/2008 - 08:02 | Warnen spam
Hallo Thomas,

wie kann man mit VBA die metrische Lànge eines in Word dargestellten Textes
ermitteln?



teste mal folgendes Makro

Sub LengthOfSel()
Dim rngStart As Range, rngEnd As Range, rng As Range
Set rngStart = Selection.Range
rngStart.SetRange rngStart.Start, rngStart.Start
Set rngEnd = Selection.Range
rngEnd.SetRange rngEnd.End, rngEnd.End
Debug.Print PointsToCentimeters(rngEnd.Information(wdHorizontalPositionRelativeToPage) - rngStart.Information(wdHorizontalPositionRelativeToPage))
End Sub


Gruß Christian

Ähnliche fragen