Font .Position problem.

[Robert]

I am trying to write a macro to insert a large, red full-
stop (US period) to indicate the end of a sentence,
followed by capitalisation of the next word. This will
help automate the task of marking English assignments.
Only one small problem remains.

I have "borrowed" the round bullet symbol and moved it
down two points by using the Font Position Property. This
works well but has the effect of shifting the entire line
below downwards, thus spoiling the body-text formatting.

Towards the end of the macro I have tried collapsing the
selection and issuing Position=0 but this simply negates
the earlier Position setting, returning the bullet to its
usual mid-line position. Is it possible to move the
bullet down without affecting the line below? Any and
all suggestions will be most gratefully received.

 

[Jezebel]

Try using an Advance field. This might be the rare occasion when that field
has a use.

 

[Helmut Weber]

Hi Robert,
setting the linespacing to an exact value might help, too.
Like this, but better defined for all paragraphs in a template.
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 11
End With