Одна из самых больших проблем при форматировании того, что раньше было файлом ASCII, – это его изменение, поэтому в конце абзацев есть только жесткие возвраты. Большинство файлов ASCII имеют жесткий возврат в конце каждой строки файла и два жестких возврата в конце каждого абзаца. Если у вас есть файл ASCII в таком формате, например, что-то, что вы скачали из Интернета, следующий макрос будет неоценимым. Он форматирует весь файл, поэтому в конце абзацев есть только жесткие возвраты.
Sub ConvertASCII () Fmt "^ p ^ p", "{|}" Fmt "^ p", " {@} "Fmt" {@} "," "Fmt" {@} "," "Fmt" {|} "," ^ p "End Sub
Sub Fmt (sFromWord, sToWord ) Установите myRange = ActiveDocument.Content myRange.Find.ClearFormatting myRange.Find.Execute FindText: = sFromWord, _ ReplaceWith: = sToWord, MatchCase: = 0, _ Replace: = wdReplaceAllEnd Sub
Вы должны запустите макрос ConvertASCII. Он вызывает макрос Fmt несколько раз для замены различных комбинаций символов возврата и достижения желаемого результата.