I am trying to write a macro to insert a single space with Normal style after the insertion point. The problem is that the insertion point is between an italics character on the left and the paragraph marker on the right. I could be wrong, but it seems to me that the paragraph marker carries some style information with it. Here is my code – I have already spent an hour on the problem without success.

My algorithm is to insert a space before the insertion point (on the left of the selection bar), then extend the selection backwards one character, assign the normal style to that selection range, and collapse the selection, leaving the insertion point between a normal space on the left and the paragraph marker on the right.


I must be doing something wrong. Does anyone know what it is? Thank you

Sub FNormal()
   ' insert a normal space after an italic word adjacent to the end paragraph marker
   selection.Collapse wdCollapseEnd
   selection.InsertBefore " "
   selection.MoveLeft Unit:=wdCharacter, count:=1, Extend:=wdExtend
   selection.style = ActiveDocument.Styles("Normal")
   selection.Collapse wdCollapseEnd
End Sub