Как в ворде вставить пробелы перед запятыми автоматически
Если вы в силу специфики своей работы часто получаете документы Word, подготовленные кем-то другим, то наверняка встречали в текстах помимо орфографических ошибок, проблемы иного рода - лишние пробелы между словами или перед знаками препинания. Удалять их вручную утомительно и требует много времени.
Но можно значительно облегчить себе жизнь, если создать два макроса, которые самостоятельно и в мгновение ока избавят документ от этой напасти.
Макросы не оригинальны и созданы по мотивам советов авторов книги "Microsoft Word: комфортная работа с помощью макросов".
Для начала откройте какой-нибудь документ, который вы предполагаете проверить, или же сами создайте такой документ, намеренно добавив в текст лишние пробелы между словами и перед знаками препинания. Первым мы создадим макрос, который будет удалять лишние пробелы между словами.
Для тех читателей, которые знают, как работать со встроенным в Microsoft Word редактором Visual Basic, я просто приведу готовый код макроса:
Второй созданный нами макрос будет находить и удалять все лишние пробелы перед знаками препинания. Повторите шаги с 1 по 6 включительно. Назовите макрос как DeleteSpacePunctuationMark.
Для знатоков VB - код для вставки в редактор VisualBasic:
Так вы избавитесь от рутины ручных действий, которые, увы, неизбежны при редактировании любых документов Word, особенно при поиске лишних пробелов в тексте.
Вы можете помочь в развитии сайта, сделав пожертвование:
--> Или помочь сайту популярной криптовалютой:
BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ
ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634
LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ
USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634
Яндекс Деньги: 410013576807538
А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь! -->
Еще записи по вопросам использования Microsoft Word:
Комментариев: 21
Выделение всего текста перед заменой лишнее, так как всё равно делаем \"Заменить все\". Я бы добавил ещё сюда удаление пробелов в начале абзаца. Уже без галочки перед \"Подстановочные знаки\" заменить ^p^w на ^p. Неплохо бы также удалить пробелы в конце абзаца (перед переводом строки) - заменить ^w^p на ^p. Можно удалить лишние переводы строк (чтобы заменить их на разрыв страницы) - заменить ^p^p на ^p и повторить несколько раз.
Удобно, здорово, научно. Я до Вашей полезности делал кондово. Примерно так:выделить всё (Ctrl+A), найти (Ctrl+F), заменить (Alt+з), два пробела (spacebar+spacebar), табулятор (Tab), один пробел ((spacebar), заменить все (Alt+в). Повторял эту процедуру пару-тройку раз.
Автор, в коде ошибка во втором.
В описании для записи пошаговых действий всё правильно. Также в первом коде стоит ".Wrap = wdFindAsk" , хотя "спрашивать" не обязательно, ведь макрос должен сразу выдать результат с минимумом вопросов. Можно и в первом коде вставить тоже, что и во втором, т.е. ".Wrap = wdFindContinue"
А, это у вас в форме автоматически срезается мой копипаст из символов Короче, во втором скрипте ошибка в строке
Вместо имеющегося там значения в кавычках должно быть " ([. ;\!\?])" (как указано в описании пошаговой записи макроса).
Иначе скрипт не будет ничего находить.
Сергей, спасибо за поправки. Проверим.
А для корректного размещения кода в комментариях нужно использовать теги
и закрывающий тег pre.
П.С. Добавил кнопки форматирования для комментариев. Позже подправлю вывод для кнопки "Код".
Круть. спасибо ребята.
Для второго правильный все-таки этот коммент был
Вместо имеющегося там значения в кавычках должно быть " ([. ;\!\?])" (как указано в описании пошаговой записи макроса).
тогда и правда все пашет
Ребята, вы мне только что сэкономили 5 часов личного времени. СПАСИБО.
Ага! Это все замечательно. лишние пробелы, но, а как же недостающие?
Например, часто пишут здравствуйте ,дорогие.
Вот, лишний пробел уберем, а кто его поставит после запятой?
Я делаю макрос со всеми знаками препинания отдельно.
Думаю можно как-то оптимизировать этот процесс?
Надо делать проверку на присутствие пробела после запятой и, если это не число, например, то добавлять пробел.
Антон, простите, не нашел похожего - не подскажите, как организовать поиск и замену с подставновками (.MatchWildcards = True) самого вопросительного знака "?"
Ситуация: в тексте полно "жертв юникода" - конструкций типа:
". Это в общем?то реакция живущего и даже как?то. "
пытаюсь заменить "?" на "-" путем
Можно и без макроса.
В поле Заменить:
И подскажите, где посмотреть про подстановочные знаки, желательно с примерами - в хелпах о них более чем сдержано упомянуто.
В конце заметки приведена ссылка и на статью Сергея Хозяинова по подстановочным знакам.
А не подскажите, как сделать замену всех многочисленных пробелов на один в цикле While?
То есть вот код
Как сделать, чтобы он повторялся до тех пор, пока в тексте не останутся только одиночные пробелы?
И раз уже спршивать, то сразу все =))
Подскажите с кодом, когда нужно сделать, чтобы пробелы стояли с внешней стороны скобок (исключения, знаки препинания).
Например: Исходник: один ( два ) , три. Результат: один (два), три.
Здравствуйте, подскажите, макрос, удаляющий пробелы:
1. В конце предложения после точки.
2. В начале нового абзаца. Сначала идет пробел, затем само предложение.
Желательно изменить/добавить в макрос №2 этой статьи или написать новый. Выручайте. Спасибо.
Простите, некорректно отобразились мои обозначения пробелов. Повторяю то же самое еще раз с другим обозначением:
Здравствуйте, подскажите, макрос, удаляющий пробелы:
1. В конце предложения после точки.
В конце предложения после точки пробел нужен. Если Вы хотите удалить два пробела после точки и преобразовать их в один, то нужно сделать замену:
(где вместо выражения [пробел] нужно поставить пробел)
Если Вы хотите удалить пробел в конце абзаца, то нужно сделать замену:
(где вместо выражения [пробел] нужно поставить пробел)
2. В начале нового абзаца. Сначала идет пробел, затем само предложение.
Можно сделать замену:
(где вместо выражения [пробел] нужно поставить пробел)
Alex_Gur, большое спасибо.
Для лучшего отображения пробелов в диалоговом окне лучше всего использовать коды ASCII. Впечатываем ^0032 и получаем пробел. Впечатываем ^0013 и получаем знак абзаца. Работает как в режиме подстановочных символов, так и при простом поиске и замене. И еще. Поскольку коды можно использовать в режиме подстановки символов, то впечатываем в поле "Найти" ^0013^0032 в поле "Заменить на" ^0013 и в результате удаляется любое количество пробелов в начале абзаца. Но есть одна проблема: если к абзацам применены разные стили, то стиль предшествующего абзаца заменяется на стиль последующего. И еще у меня исчезает во втором абзаце отступ. Работаю в Word 2010. Есть идеи, как избежать потери форматирования?
Для того, чтобы материал, излагаемый в этом уроке, был понятен, необходимо ознакомиться с уроком, посвящённом удалению скрытых символов в Word.
Одной из ошибок, которая встречается не сильно часто, является незнание человеком, выполнившим научную работу, о необходимости ставить пробел после запятой или точки в тексте. Отсутствие пробела ухудшает восприятие и негативным образом влияет на эстетическое впечатление от увиденного текста (см. картинку ниже).
Пример ошибки в тексте, где нет запятых после пробел
Для того, чтобы устранить указанную ошибку с запятыми, действуем по следующему алгоритму:
Результатом замены станет проставление после всех запятых знака пробела.
Как убрать лишние пробелы в тексте было рассмотрено в моём предыдущем уроке.
Указанный алгоритм можно использовать для автоматического проставления пробелов и после других символов: точки, двоеточия, точки с запятой и т.д., используя для подстановки соответствующий символ.
Для того, чтобы было понятнее, смотрим видеоурок ниже, где весь процесс показан на примере правильного форматирования запятых:
Другой ошибкой, которая встречается при проверке научных работ, является проставление в тексте лишнего пробела перед запятой, двоеточием или иным символом в тексте.
В данном случае необходимо запомнить, что после запятой, точки, двоеточия или точки c запятой нужно ставить пробел, тогда как перед этими символами (после написания последней буквы слова) пробел не ставится.
Для того, чтобы убрать лишний пробел перед запятой, точкой или иным знаком препинания делаем следующие действия :
Убираем лишний пробел до двоеточия
Удачной учёбы/работы Вам.
Устранение ошибок оформления, связанных со знаками препинания, в Word : 3 комментария
Дякую за гарну статтю!
До речі, щодо двокрапок хотів би уточнити, що в бібліографічному описі перед двокрапкою частенько стоїть пробіл за правилами (а значна частина студентів [і не лише] про це не знає, тому можуть помилково повилучати також у виносках, у посиланнях, у списку використаних джерел, у списку опублікованих праць тощо).
Юрий, согласен с Вами. Но, я считаю, для студенческих работ отсутствие пробела перед двоеточием в библиографическом описании не является критичным.
Предположим, у вас есть список данных в документе Word, и теперь вы хотите добавить запятую в конце каждой строки, как показано на скриншоте ниже. Как вы можете быстро выполнить задание, не добавляя запятые одну за другой?
Добавьте запятую в конец каждой ячейки в Excel с помощью Kutools for Excel
Добавьте запятую в конце каждой строки с помощью поиска и замены
В Word функция «Найти и заменить» окажет вам услугу в решении этой задачи.
1. Выберите содержимое, которое вы хотите добавить запятой в конце каждой строки, затем нажмите Ctrl + H для открытия Найти и заменить Диалог.
2. В появившемся диалоговом окне введите ^p в Найти то, что текстовое поле, затем введите , ^ p in Заменить текстовое окно. Смотрите скриншот:
3. Нажмите Заменить все, появится диалоговое окно, напоминающее о необходимости поиска остальной части документа, нажмите Да or Нет как вам нужно.
Затем в конце каждой строки были добавлены запятые.
Добавьте запятую в конец каждой ячейки в Excel с помощью Kutools for Excel
Если вы хотите добавить запятую в конце каждой ячейки в Excel, вы можете использовать Kutools for ExcelАвтора Добавить текст утилита для быстрого выполнения этой работы.
После установки Kutools for Excel, сделайте следующее: （Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите используемые ячейки, нажмите Kutools> Текст > Добавить текст.
2. в Добавить текст диалог, введите запятую , в Текст текстовое поле, отметьте После последнего символа опцию.
3. Нажмите Применить or Ok чтобы добавить запятую в каждую ячейку.
Демо
Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10!
Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки.
Нажмите, чтобы получить бесплатную пробную версию вкладки Office!
Когда вы копируете или импортируете некоторые данные из других приложений, вы можете получить данные, содержащие запятые, но без пробелов после них. Но теперь вы хотите добавить пробел после каждой запятой, чтобы сделать текстовую строку более четкой и стандартной, как показано на следующем снимке экрана. Есть ли у вас какие-нибудь хорошие идеи по поводу этой работы?
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния : Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты : Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона ; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий .
- Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Добавляйте пробелы после запятых в формулах
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Чтобы добавить пробелы после запятых на листе, вы можете применить следующую простую формулу, сделайте следующее:
1. Рядом со своими данными введите эту формулу = ОБРЕЗАТЬ (ПОДСТАВИТЬ (A2; ";"; ";")) (A2 содержит данные, которые вы хотите добавить пробелы), см. снимок экрана:
2. Затем перетащите дескриптор заполнения к ячейкам, которые вы хотите применить к этой формуле, и все текстовые строки были вставлены через пробел после каждой запятой, см. Снимок экрана:
Добавляйте пробелы после запятых с помощью функции поиска и замены
В Excel вы также можете использовать функцию «Найти и заменить» для замены запятой на запятую + пробел. Для этого выполните следующие действия:
1. Выберите диапазон данных, в котором вы хотите добавить пробелы после запятых.
2. Затем нажмите Главная > Найти и выбрать > Заменять или вы можете нажать Ctrl + H , чтобы открыть Найти и заменить диалоговое окно.
3. В открытом Найти и заменить диалоговом окне введите запятую в Найти то, что текстовое поле и введите запятую и пробел в Заменить текстовое поле, см. снимок экрана:
4, Затем нажмите Заменить все кнопки пробелы были вставлены после запятых.
Читайте также: