Создание макроса в Word

@Anthony1993 · Регистрация: 26.10.2015

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, выполнить задание.
Создать макрос в режиме протоколирования, который расставит в тексте недостающие пробелы после знаков препинания. Назначить макросу команду в меню Формат.
Опишите порядок действий, если не трудно. Заранее спасибо.

Добавлено через 47 минут
Как я понял, нужно делать через панель "Найти и заменить". Сначала "," заменить на ", ". Затем таким же образом убрать лишние пробелы, где до замены стоял пробел после запятой. Но вот знаков препинания много разных: :,.; и т.д. Для каждого знака нужно такую замену производить или же можно как-то сразу для всех произвести замену.

Fairuza · 27.04.2016, 23:27

Найти/Заменить
Отмечаем Подстановочные знаки
в Найти - [.,:;\!\?]
в Заменить на - ^&пробел

Добавлено через 7 минут
потом снова Найти/Заменить С Подстановочными знаками
в Найти - ^0032{2;}
в Заменить на - ставим просто один пробел

@Anthony1993 · 28.04.2016, 00:06 **[ТС]**

спасибо большое за ответ!
Можно спросить, вы перенесли еще одну мою тему в раздел VBA по Excel. Но в том задании тоже нужно макрос создать в режиме протоколирования..

Добавлено через 3 минуты
Наверно ее можно вообще удалить, я более-менее разобрался как делать)

@ViterAlex · 28.04.2016, 04:43

Поскольку требуется расставить недостающие пробелы, то нужно искать знак препинания, после которого стоит любой знак кроме конца ячейки, абзаца, пробела или неразрывного пробела.
За один проход:
Найти: ([.,:;\!\?])([!^0007^0013^0032^0160])
Заменить на: \1 \2
Подстановочные знаки включены

@Anthony1993 1 / 1 / 0 Регистрация: 26.10.2015 Сообщений: 59
		1
	Создание макроса в Word 27.04.2016, 21:56. Показов 1709. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста, выполнить задание. Создать макрос в режиме протоколирования, который расставит в тексте недостающие пробелы после знаков препинания. Назначить макросу команду в меню Формат. Опишите порядок действий, если не трудно. Заранее спасибо. Добавлено через 47 минут Как я понял, нужно делать через панель "Найти и заменить". Сначала "," заменить на ", ". Затем таким же образом убрать лишние пробелы, где до замены стоял пробел после запятой. Но вот знаков препинания много разных: :,.; и т.д. Для каждого знака нужно такую замену производить или же можно как-то сразу для всех произвести замену. 0

Fairuza 6002 / 3197 / 716 Регистрация: 23.11.2010 Сообщений: 10,683
	27.04.2016, 23:27	2
	Найти/Заменить Отмечаем Подстановочные знаки в Найти - [.,:;\!\?] в Заменить на - ^&пробел Добавлено через 7 минут потом снова Найти/Заменить С Подстановочными знаками в Найти - ^0032{2;} в Заменить на - ставим просто один пробел 0

@Anthony1993 1 / 1 / 0 Регистрация: 26.10.2015 Сообщений: 59
	28.04.2016, 00:06 [ТС]	3
	спасибо большое за ответ! Можно спросить, вы перенесли еще одну мою тему в раздел VBA по Excel. Но в том задании тоже нужно макрос создать в режиме протоколирования.. Добавлено через 3 минуты Наверно ее можно вообще удалить, я более-менее разобрался как делать) 0

@ViterAlex 8940 / 4852 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	28.04.2016, 04:43	4
	Поскольку требуется расставить недостающие пробелы, то нужно искать знак препинания, после которого стоит любой знак кроме конца ячейки, абзаца, пробела или неразрывного пробела. За один проход: Найти: ([.,:;\!\?])([!^0007^0013^0032^0160]) Заменить на: \1 \2 Подстановочные знаки включены 1