Loop na célula da tabela ativa

Question

Agora estou trabalhando no topo da célula ativa com este código:

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

Eu preciso disso até o final da célula ativa. Sugestões?

Eu estou tentando criar uma macro que pega uma lista de itens e coloca todos eles na mesma linha, separando-os com vírgulas e um espaço.

Exemplo 1 2 3

para

1, 2, 3

Como cada item tem uma duração diferente, decidi ir do fundo da mesa. Se houver uma maneira de fazer o loop do script para ir até o final do conteúdo na célula da tabela ativa? Eu só quero aplicá-lo à célula da tabela em que estou trabalhando.

O script que estou tentando fazer loop:

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

Outras sugestões são bem-vindas.

    

Answer 1

Talvez seja só usar o método Selection.Replace .

Esta linha substituirá todos os espaços na seleção atual por vírgula + espaço:

Selection.Replace What:=" ", Replacement:=", "