Bucle en celda de tabla activa

Ahora estoy trabajando desde la parte superior de la celda activa con este código:

Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=", "
Selection.Delete Unit:=wdCharacter, Count:=1

Lo necesito para hacer un bucle hasta el final de la celda activa. Sugerencias?

Estoy intentando crear una macro que toma una lista de elementos y los pone todos en la misma línea separándolos con comas y un espacio.

Ejemplo 1 2 3

a

1, 2, 3

Debido a que cada elemento tiene una longitud diferente, decidí ir subiendo desde la parte inferior de la tabla. ¿Hay alguna manera de que yo haga un bucle en el script para subir hasta el final del contenido en la celda de la tabla activa? Solo quiero aplicarlo a la celda de la mesa en la que estoy trabajando.

El script que estoy tratando de hacer un bucle:

Selection.HomeKey Unit:=wdLine
Selection.TypeBackspace
Selection.TypeText Text:=", "

Se agradecen otras sugerencias.

Quizás solo use el Selección.Reemplazo método.

Esta línea reemplazará todos los espacios en la selección actual con un espacio de coma +:

Selección. Reemplazar qué: = "", Reemplazo: = ","