В наборе есть неписаное правило, согласно которому после конца предложения должен быть только один пробел. Это обеспечивает наилучший внешний вид на печатной странице, особенно при использовании пропорциональных шрифтов. Проблема в том, что легко добавить дополнительные пробелы в конце предложения, даже не осознавая этого. Следующий макрос CheckSpaces — это инструмент, который можно использовать для перепроверки конца ваших предложений:

Sub CheckSpaces()

Call MakeChanges("Normal", ".")

Call MakeChanges("Normal", "!")

Call MakeChanges("Normal", ":")

End Sub
Sub MakeChanges(StyName As String, PuncMark As String)

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Style = ActiveDocument.Styles(StyName)

Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = PuncMark & "   "

.Replacement.Text = PuncMark & " "

.Forward = True         .Wrap = wdFindContinue         .Format = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = PuncMark & "  "

Selection.Find.Execute Replace:=wdReplaceAll End Sub

CheckSpaces удалит лишние пробелы только из абзацев, отформатированных в обычном стиле. Это гарантирует, что вы не испортите форматирование в таблицах или других элементах дизайна, где вам могут понадобиться дополнительные пробелы после точек. Если вы хотите изменить тип знаков препинания для поиска или выполнить поиск в абзацах с другим стилем, добавьте дополнительные вызовы MakeChanges после четвертой строки в макросе.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (9695) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для пользователей старый интерфейс меню Word здесь:

link: / word-Consistent_Spacing [Согласованный интервал].