Нередко возникает необходимость форматировать текстовые файлы в Word. Например, вы можете получить сообщение электронной почты от кого-то, нуждающегося в форматировании, или вы можете получить файл ASCII от друга. Наиболее частые потребности при форматировании такого файла — это удаление лишних пробелов или табуляции в начале строки, лишних пробелов или табуляций в конце строки, удаление символов «ответа» из начала каждой строки и объединение строк для сделать абзацы.

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

Sub DoASCII()

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

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     For J = 1 To 4         Selection.Find.Text = "^p> "

Selection.Find.Execute Replace:=wdReplaceAll     Next J     Selection.Find.Text = "^p^w"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^w^p"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p^p"

Selection.Find.Replacement.Text = "[{}]"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p"

Selection.Find.Replacement.Text = " "

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "[{}]"

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

Selection.Find.Execute Replace:=wdReplaceAll End Sub

Обратите внимание, что этот макрос заменяет до четырех уровней «>»

символы помещаются в начало строки. Также предполагается, что единственное место, где вы хотите разрывать абзацы, — это те места, где есть пустая строка.

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

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

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

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

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

ссылка: / wordribbon-Formatting_Text_Files_with_VBA [Форматирование текстовых файлов с помощью VBA].