Поиск-Замена

@Olyaa · Регистрация: 12.07.2013

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

Доброго вечера всем!
Скажите, пожалуйста, как в Wordе осуществить поиск-замену нескольких пробелов подряд? Например, я просто хочу удалить из текста все лишние пробелы. Ну, чтобы не перебирать каждый пробел (что-то типа поиск 2 пробелов - заменить на ничего,поиск 3 пробелов - заменить на ничего и т.д.), использовать что-то типа пустое пространство в специальных знаках что ли...
Спасибо
и ещё: как удалить все пустые строки?
и перед знаками пунктуации (кроме тире) нет пробелов - это же перебором,так?

Добавлено через 15 минут
как между словами,отделёнными знаками пунктуации,оставить только один пробел?
После знаков пунктуации не в конце абзаца сделать один пробел
перед знаками пунктуации,кроме тире, ни одного пробела
перед тире - один пробел
в конце и на начале абзаца - ни одного пробела

???

Fairuza · 14.03.2014, 23:35

Найти/Заменить - Больше - Специальный
В Найти - Пустое пространство
В Заменить на /пробел/
Заменить все

@Olyaa · 14.03.2014, 23:37 **[ТС]**

Fairuza, спасибо, это всё я знаю..

Добавлено через 33 секунды
Fairuza, а вот как другое
как между словами,отделёнными знаками пунктуации,оставить только один пробел?
в конце и на начале абзаца - ни одного пробела

Fairuza · 14.03.2014, 23:42

Пустые строки - также можно в Найти 2 подряд знака Конец абзаца на 1 знак Конец абзаца

Добавлено через 4 минуты

Сообщение от Olyaa

оставить только один пробел

Пустое пространство/Пробел как раз оставит 1 пробел

Сообщение от Olyaa

в конце и на начале абзаца - ни одного пробела

тут не поняла. Это условие или Вы сетуете на это))))

@Olyaa · 14.03.2014, 23:44 **[ТС]**

Сообщение от Fairuza

тут не поняла. Это условие или Вы сетуете на это))))

задание такое

Fairuza · 14.03.2014, 23:57

Попробуйте Конец абзаца_пробел/Конец абзаца

Добавлено через 4 минуты
Сейчас проверила. Уточнение не Конец абзаца, а Знак абзаца.
В найти с пробелом до и с пробелом после, удаляет, при условии, что изначально заменили Пустое пространство на 1 пробел

@Olyaa · 15.03.2014, 00:02 **[ТС]**

Fairuza, спасибо

@Sasha_Smirnov · 17.03.2014, 00:36

Уже почти 16 лет делаю всё это макросом следующего вида (за час набросал демоверсию).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub ProofPrint() 'демо
Selection.HomeKey wdStory   'соответствует нажатию Ctrl-Home в документе Word   
    With Selection.Find         'соответствует нажатию Crtrl-h в документе Word (диалог замены)
    .MatchWildcards = False     'соответствует снятию галочки "Подстановочные знаки"    
    .Text = "^w"                'ищем пустое пространство: пробелы, в т. ч. табы и Chr(160)
    .Replacement.Text = " "     'меняем все такие нагромождения (точнее, каждое) на 1 пробел
    .Execute Replace:=wdReplaceAll 'соответствует нажатию "Заменить всё"
    
    .Text = "^l"                'ищем разрыв строки: Chr(11) - символ с кодом 11
    .Replacement.Text = "^p"    'меняем на знак абзаца: Chr(13) - символ с кодом 13
    .Execute Replace:=wdReplaceAll
    
    .Text = "^p "               'абзац с пробелом ПОСЛЕ
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
    
    .Text = " ^p"               'абзац с пробелом ДО
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
    
    .MatchWildcards = True      'соответствует установке галочки "Подстановочные знаки"
    
    .Text = " ([\!,.:;\?…)])"   'примерный список знаков, перед которыми стоит ненужный пробел
            'восклицание и вопрос БЕЗ левых слэшей (\) имеют в диалоге замены спецназначение
    .Replacement.Text = "\1"    'оставляем их на месте, но без пробела
    .Execute Replace:=wdReplaceAll
    
    .MatchWildcards = False     'соответствует снятию галочки "Подстановочные знаки"
    .Text = ""                  'очистка окна "Найти:"
    .Replacement.Text = ""      'очистка окна "Заменить на:"
    .Execute                    'соответствует нажатию "Заменить" в окне поиска и замены Word
    End With
End Sub

Что касается пробелов после, их всё-таки лучше вводить, не надеясь на умного дядю — иначе ломаются десятичные дроби (когда это делают для всех точек и запятых).

На рисунке 1, используя ваш родной набор, подчеркнул проблемные места*. Рисунок 2 — результат обработки данным макросом.

_____________________
* обратите внимание на троеточие (...): его не следует разделять пробелами

@Olyaa · 17.03.2014, 11:24 **[ТС]**

Sasha_Smirnov, спасибо,но макросом нельзя пользоваться..

shanemac51 · 17.03.2014, 11:53

есть 2 варианта работы
--разрешить макросы(установив среднюю безопасность)
--вручную после ctrl+H
----- что заменить ^w
----- чем пробел
----- заменить все с начала
и т.д.

@Sasha_Smirnov · 17.03.2014, 23:39

Сообщение от Olyaa

макросом нельзя пользоваться

Добавлено через 11 часов 33 минуты
Тогда то же самое, очень аккуратно, по одной замене, глядя, что получается.

Хотя на практике так почти не делают — отдают на редактирование, и всё!

@tvorex · 09.04.2015, 05:51

Что касается пробелов после, их всё-таки лучше вводить, не надеясь на умного дядю — иначе ломаются десятичные дроби (когда это делают для всех точек и запятых).

Я решил эту задачу при помощи переборов всех букв... Как сделать все символы кроме цифр так и не додумал

@oleg526 · 16.06.2016, 10:34

При использовании в цикле

Visual Basic
1
2
3
4
5
6
7
Selection.HomeKey
With Selection.Find 
        .MatchWildcards = False
        .Text = masK(i, 3)
        .Replacement.Text = masK(i, 2)
        .Execute Replace:=wdReplaceAll
End With

Вылетает куча запросов, типа сделано столько-то замен продолжить с начала?
Как быть?

@Sasha_Smirnov · 16.06.2016, 17:00

Работать по старинке. Руками.

А вообще попробуйте убрать параметр

Visual Basic
1
.Wrap = wdFindAsk

(если он там у вас есть) и поставьте

Visual Basic
1
.Wrap = wdFindContinue

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

Поиск-Замена

Решение

Решение

@Olyaa 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 250

	Поиск-Замена 14.03.2014, 23:29. Показов 7544. Ответов 13 Метки нет (Все метки) Доброго вечера всем! Скажите, пожалуйста, как в Wordе осуществить поиск-замену нескольких пробелов подряд? Например, я просто хочу удалить из текста все лишние пробелы. Ну, чтобы не перебирать каждый пробел (что-то типа поиск 2 пробелов - заменить на ничего,поиск 3 пробелов - заменить на ничего и т.д.), использовать что-то типа пустое пространство в специальных знаках что ли... Спасибо и ещё: как удалить все пустые строки? и перед знаками пунктуации (кроме тире) нет пробелов - это же перебором,так? Добавлено через 15 минут как между словами,отделёнными знаками пунктуации,оставить только один пробел? После знаков пунктуации не в конце абзаца сделать один пробел перед знаками пунктуации,кроме тире, ни одного пробела перед тире - один пробел в конце и на начале абзаца - ни одного пробела ??? 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	14.03.2014, 23:35
	Найти/Заменить - Больше - Специальный В Найти - Пустое пространство В Заменить на /пробел/ Заменить все 2

@Olyaa 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 250
	14.03.2014, 23:37 [ТС]
	Fairuza, спасибо, это всё я знаю.. Добавлено через 33 секунды Fairuza, а вот как другое как между словами,отделёнными знаками пунктуации,оставить только один пробел? в конце и на начале абзаца - ни одного пробела 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	14.03.2014, 23:57
	Сообщение было отмечено Olyaa как решение Решение Попробуйте Конец абзаца_пробел/Конец абзаца Добавлено через 4 минуты Сейчас проверила. Уточнение не Конец абзаца, а Знак абзаца. В найти с пробелом до и с пробелом после, удаляет, при условии, что изначально заменили Пустое пространство на 1 пробел 2

@Olyaa 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 250
	15.03.2014, 00:02 [ТС]
	Fairuza, спасибо 0

@Olyaa 0 / 0 / 0 Регистрация: 12.07.2013 Сообщений: 250
	17.03.2014, 11:24 [ТС]
	Sasha_Smirnov, спасибо,но макросом нельзя пользоваться.. 0

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,931 Записей в блоге: 4
	17.03.2014, 11:53
	есть 2 варианта работы --разрешить макросы(установив среднюю безопасность) --вручную после ctrl+H ----- что заменить ^w ----- чем пробел ----- заменить все с начала и т.д. 2