Я сейчас работаю с вершины Active Cell с этим кодом:

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

Мне нужно это зациклить до конца активной ячейки. Предложения?


Я пытаюсь создать макрос, который берет список элементов и помещает их все в одну строку, разделяя их запятыми и пробелом.

Пример 1 2 3

в

1, 2, 3

Поскольку каждый предмет имеет разную длину, я решил подняться с нижней части стола. Если есть способ для меня зациклить сценарий, чтобы идти вверх до конца содержимого в активной ячейке таблицы? Я только хочу применить его к ячейке таблицы, в которой я работаю.

Сценарий, который я пытаюсь зациклить:

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

Другие предложения приветствуются.

1 ответ1

0

Возможно, просто используйте Выбор.Заменить метод.

Эта строка заменит все пробелы в текущем выделении запятой + пробел:

Выбор.Заменить на что:= "", Замена:= ","

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .