Defining Font Spacing

[Steffen Rieke]

Hello everyone,

i've written a macro that searches for space characters in the selected text
and alters their font spacing to a specific amount. But when I try to set the
spacing to a value with more than one decimal places, Word treats the value
as if it only has one decimal place.

My code:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Spacing = 0.95 '<<< this is my desired
value
With Selection.Find
.Text = " "
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

I set Selection.Find.Replacement.Font.Spacing to 0.95. But after execution,
the font spacing of my characters has been set to 0.9! How can I tell Word to
set it to exactly 0.95?

Thanks in advance,
Steffen

 

[Stefan Blom]

Word seems to support no more than a single decimal place for character
spacing.

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...