Aktif Tablo Hücresinde Döngü

Şimdi bu kodla Aktif Hücrenin tepesinden çalışıyorum:

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

Aktif hücrenin sonuna kadar döngü yapmam gerekiyor. Öneriler?

Öğelerin listesini alan ve virgül ve boşlukla ayırarak hepsini aynı satıra yerleştiren bir makro oluşturmaya çalışıyorum.

Örnek 1 2 3

için

1, 2, 3

Her madde farklı bir uzunluk olduğu için masanın altından yukarı doğru ilerlemeye karar verdim. Etkin tablo hücresindeki içeriğin sonuna kadar yukarı gitmek için komut dosyası döngü benim için bir yolu varsa? Sadece çalıştığım masa hücresine uygulamak istiyorum.

Dönmeye çalıştığım komut dosyası:

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

Diğer öneriler takdir edilmektedir.

Belki de sadece Selection.Replace yöntemini kullanın .

Bu satır, geçerli seçimdeki tüm boşlukları virgül + boşluk ile değiştirir:

Selection.Replace Ne: = "", Değiştirme: = ","