Одна из самых больших проблем при форматировании того, что ранее было файлом ASCII, — это его изменение, поэтому в конце абзацев есть только жесткие возвраты. Большинство файлов ASCII имеют жесткий возврат в конце каждой строки файла и два жестких возврата в конце каждого абзаца. Если у вас есть файл ASCII в таком формате, например, что-то, что вы скачали из Интернета, следующий макрос будет бесценным. Он форматирует весь файл, поэтому в конце абзацев есть только жесткие возвраты.

Sub ConvertASCII()

Fmt "^p^p", "{|}"

Fmt "^p", " {@}"

Fmt " {@}", " "

Fmt "{@}", " "

Fmt "{|}", "^p"

End Sub
Sub Fmt(sFromWord, sToWord)

Set myRange = ActiveDocument.Content     myRange.Find.ClearFormatting     myRange.Find.Execute FindText:=sFromWord, _       ReplaceWith:=sToWord, MatchCase:=0, _       Replace:=wdReplaceAll End Sub

Вам следует запустить макрос ConvertASCII. Он вызывает макрос Fmt несколько раз для замены различных комбинаций символов возврата для достижения желаемого результата.

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

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

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

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

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

link: / wordribbon-Automatically_Formatting_an_ASCII_File [Автоматическое форматирование файла ASCII].