La mayoría de los programas cliente de correo electrónico, especialmente los que utilizan texto sin formato en lugar de HTML, «dividen» automáticamente cada línea de correo electrónico en 70 o 72 caracteres. Afortunadamente, no suelen romper una línea en medio de una palabra, pero lo hacen al principio de la palabra que alcanza la marca de 70 o 72 caracteres.

Desafortunadamente, esto puede tener algunos efectos adversos en el correo electrónico que redacte en Word. Algunas de sus líneas, cuando las ve su destinatario, pueden parecer extrañas, romperse en lugares menos que óptimos y, en general, verse bastante extrañas. La solución, por supuesto, es romper cada línea cuando se llega al lugar apropiado en la línea. De esta manera, puede controlar, de antemano, cómo su destinatario ve su mensaje.

Puede hacer esto manualmente, si lo desea, configurando los márgenes de su mensaje de modo que solo haya 7 o 7,2 pulgadas de espacio horizontalmente. Luego, usaría una fuente monoespaciada de 12 puntos, como Courier, para escribir el mensaje. Cuando una palabra pasa a la siguiente línea, simplemente retroceda hasta el principio de la palabra y presione la tecla Enter.

Esto podría volverse MUY antiguo MUY rápido, incluso si envía solo una cantidad moderada de correo electrónico. La mejor solución es permitir que Word haga los descansos por usted, pero no parece haber tal capacidad en Word. (Puede configurar sus opciones en Outlook o Outlook Express para dividir líneas automáticamente, pero eso no le brinda un control tan preciso como hacerlo directamente en Word).

Esto nos lleva al macro territorio. Puede utilizar la siguiente macro para inspeccionar el documento actual y «cortar» automáticamente cada párrafo para que ninguna línea tenga más de 70 caracteres de longitud.

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

Cuando ejecuta esta macro, abre un documento nuevo y copia la información del documento anterior en él, asegurándose de que cada línea no tenga más de 70 caracteres. El nuevo documento no contendrá ningún formato. (Ya que está reuniendo correo electrónico de texto plano, esto no debería ser un problema.) Si desea un ancho de línea diferente, todo lo que necesita hacer es cambiar el valor asignado a iLineWidth en la macro.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1336) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Breaking_Lines_in_E-mail [Rompiendo líneas en el correo electrónico].