대부분의 전자 메일 클라이언트 프로그램 (특히 HTML 대신 일반 텍스트를 사용하는 프로그램)은 전자 메일의 각 줄을 70 자 또는 72 자로 자동 “분리”합니다. 다행히도 일반적으로 단어 중간에서 줄을 끊지 않지만 70 자 또는 72 자 표시에 도달하는 단어의 시작 부분에서 줄을 끊습니다.

불행히도 이것은 Word에서 작성하는 전자 메일에 부정적인 영향을 미칠 수 있습니다. 받는 사람이 볼 때 일부 대사는 이상하게 보일 수 있으며 최적이 아닌 곳에서 깨지고 일반적으로 꽤 펑키하게 보일 수 있습니다. 물론 해결책은 줄의 적절한 위치에 도달했을 때 각 줄을 끊는 것입니다. 이렇게하면 수신자가 메시지를 보는 방법을 미리 제어 할 수 있습니다.

원하는 경우 가로로 7 인치 또는 7.2 인치의 공간 만 있도록 메시지 여백을 설정하여이를 수동으로 수행 할 수 있습니다. 그런 다음 Courier와 같은 12 포인트 고정 폭 글꼴을 사용하여 메시지를 입력합니다. 단어가 다음 줄로 줄 바꿈되면 단어의 시작 부분으로 백 스페이스로 이동하고 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는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (11466)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Breaking_Lines_in_E-mail [전자 메일의 줄 바꿈].