Может быть, я один из тех навязчиво-навязчивых людей, но я всегда просматриваю свои документы, чтобы убедиться, что в конце строки нет конечных пробелов. Это делает документ аккуратнее и меньше. Если вы форматируете файлы ASCII или документы, полученные от других людей, вам нужно будет искать конечные пробелы и удалять их при форматировании файла для Word. Следующий макрос, StripSpaces, удалит все пробелы перед знаками абзаца и перенос строк вручную во всем документе.

Sub StripSpaces()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = " ^p"

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchWholeWord = False         .MatchWildcards = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.HomeKey Unit:=wdStory         Selection.Find.Execute Replace:=wdReplaceAll         Selection.Find.Execute     Wend

Selection.Find.Text = " ^l"

Selection.Find.Replacement.Text = "^l"

Selection.Find.Execute     While Selection.Find.Found         Selection.HomeKey Unit:=wdStory         Selection.Find.Execute Replace:=wdReplaceAll         Selection.Find.Execute     Wend End Sub

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (969) относится к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Strip_Trailing_Spaces [Убрать конечные пробелы].