Большинство программ-клиентов электронной почты, особенно те, которые используют простой текст вместо HTML, автоматически «разбивают» каждую строку электронной почты на 70 или 72 символа. К счастью, они обычно не прерывают строку в середине слова, а делают это в начале слова, которое достигает отметки из 70 или 72 символов.

К сожалению, это может иметь негативные последствия для электронной почты, которую вы составляете в Word. Некоторые из ваших строк при просмотре получателем могут выглядеть странно, ломаться в неоптимальных местах и ​​в целом выглядеть довольно странно. Решение, конечно же, состоит в том, чтобы вы разорвали каждую строку, когда будет достигнуто соответствующее место на линии. Таким образом, вы можете заранее контролировать, как получатель увидит ваше сообщение.

При желании вы можете сделать это вручную, установив поля для сообщений так, чтобы по горизонтали оставалось всего 7 или 7,2 дюйма. Затем вы можете использовать 12-кегментный моноширинный шрифт, например Courier, для ввода сообщения. Когда слово переносится на следующую строку, просто вернитесь назад к началу слова и нажмите клавишу Enter.

Это может ОЧЕНЬ стареть ОЧЕНЬ быстро, даже если вы отправляете только небольшое количество электронной почты. Лучшее решение — позволить Word делать перерывы за вас, но, похоже, в Word нет такой возможности. (Вы можете настроить свои параметры в Outlook или Outlook Express, чтобы автоматически разрывать строки для вас, но это не дает вам такого точного контроля, как выполнение этого непосредственно в Word.)

Это подводит нас к макро территории. Вы можете использовать следующий макрос, чтобы проверить текущий документ и автоматически «разрезать» каждый абзац, чтобы ни одна строка не превышала 70 символов.

Sub ChopItUp()

Dim DocThis As Document, docThat As Document     Dim sParRaw As String     Dim iParCount As Integer, iParOut As Integer     Dim J As Long, X As Integer     Dim iLineWidth As Integer     Dim sLeft As String, sRight As String     Dim sTemp As String

iLineWidth = 70

Set DocThis = ActiveDocument     Documents.Add     Set docThat = ActiveDocument     DocThis.Activate

iParCount = DocThis.Paragraphs.Count     iParOut = 0     For J = 1 To iParCount         sParRaw = DocThis.Paragraphs(J).Range.Text         If Right(sParRaw, 1) = Chr(13) Then             sParRaw = Left(sParRaw, Len(sParRaw) - 1)

End If

sRight = sParRaw         If Len(sRight) > iLineWidth Then             While Len(sRight) > iLineWidth                 sLeft = Left(sRight, iLineWidth)

sRight = Mid(sRight, iLineWidth + 1)

flgDoIt = True                 If Left(sRight, 1) = " " Then                     sRight = Mid(sRight, 2)

flgDoIt = False                 End If                 If Right(sLeft, 1) = " " Then                     sLeft = Left(sLeft, Len(sLeft) - 1)

flgDoIt = False                 End If

If flgDoIt Then                     X = InStr(LTrim(sLeft), " ")

If X > 0 Then                         sTemp = ""

While Right(sLeft, 1) <> " "

sTemp = Right(sLeft, 1) & sTemp                             sLeft = Left(sLeft, Len(sLeft) - 1)

If Len(sLeft) = 0 Then                                 sLeft = sTemp & " "

sTemp = ""

End If                         Wend                         sRight = sTemp & sRight                     End If                     sLeft = Trim(sLeft)

End If

docThat.Paragraphs.Add                 docThat.Paragraphs(docThat.Paragraphs.Count).Range = sLeft                 sLeft = ""

sRight = Trim(sRight)

Wend         End If         docThat.Paragraphs.Add         docThat.Paragraphs(docThat.Paragraphs.Count).Range = sRight     Next J End Sub

Когда вы запускаете этот макрос, он открывает совершенно новый документ и копирует в него информацию из старого документа, следя за тем, чтобы длина каждой строки не превышала 70 символов. Новый документ не будет содержать никакого форматирования. (Поскольку вы составляете электронную почту в виде обычного текста, это не должно быть проблемой.) Если вам нужна другая ширина строки, все, что вам нужно сделать, это изменить значение, присвоенное iLineWidth в макросе.

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

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

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

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

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

link: / wordribbon-Breaking_Lines_in_E-mail [Прерывание строк в электронной почте].