la palabra agrega un espacio antes de cada línea o 10 espacios después de cada 10 caracteres

El siguiente código VBA agrega 10 espacios cada 10 caracteres, pero aún no es perfecto, así que haga una copia de seguridad de su documento antes de usarlo:

Sub InsertSpace()

For i = 0 To ActiveDocument .Words.Count

Si i > 10 Entonces

i = i + 10

Selection.MoveSpace()