Finding a font's width in points

[Amir]

Hi!

How can I find a font's width in points?

I want to know what's the width in points of each character in the font
'Courier New' when it's size is set to 12.
It's a fixed width font (Each character in this font has the same width in
points).

I will be pleased if you tell me the width in points of the characters in
the Courier New font when it's size is set to 12, or tell me how to find
these values myself.

Thanks a lot!

Regards,
Amir.

 

[Helmut Weber]

Hi,
try this to get an approximation:

Dim l As Long
Dim p1 As Single
Dim p2 As Single
For l = 1 To 12
p1 = Selection.Information
(wdHorizontalPositionRelativeToPage)
Selection.MoveRight
p2 = Selection.Information
(wdHorizontalPositionRelativeToPage)
MsgBox p2 - p1
Next

It is between 7,1999995 and 7.2000005 her and now.
at zoom 400 Percent

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[Amir]

Thank you very much!

Kind Regards,
Amir.

 

[Klaus Linke]

Or, if you prefer an "exact" solution:
1 character at 10 pt font size = 6 pt.

So at 12 pt font size, it's exactly 7,2 pt.

That should be true for all non-proportional fonts (barring errors by the font designer).

Regards,
Klaus

 

[Amir]

Thank you!,

Regards,
Amir.

Or, if you prefer an "exact" solution:
1 character at 10 pt font size = 6 pt.

So at 12 pt font size, it's exactly 7,2 pt.

That should be true for all non-proportional fonts (barring errors by the
font designer).

Regards,
Klaus