Rellenar con guiones ( - - - ) hasta fin de párrafo con VBA

Tengo un documento de word 2003, y me gustaría que los finales de párrafo se rellenaran con guiones alternos con espacio (- - - - - - -) hasta el final del párrafo y todo ello con VBA.