Lori pidió una manera fácil de determinar si un párrafo «se extiende» a más de una línea. Parece que cuando Lori estaba fusionando etiquetas, si una línea (párrafo) se sobrepasa y pasa a la siguiente línea de la etiqueta, quería reducir el tamaño en puntos del texto para que la línea ocupara solo eso: una sola línea.

Ajustar líneas es una función de Word en tiempo real (y en tiempo de impresión). Word realiza cálculos internos de forma continua para determinar qué mostrar en pantalla o qué imprimir en papel. Cuando el texto se ajusta de una línea a otra, en realidad no hay nada que marque el punto de ajuste (como ocurre en otros procesadores de texto), por lo que no hay nada que buscar o encontrar. Además, la función Buscar de Word no tiene una opción (especial o de otro tipo) para buscar cosas y decir cuántas líneas se extienden las cosas encontradas.

Es posible realizar una larga serie de operaciones de búsqueda y reemplazo para intentar «manipular» y descubrir las líneas demasiado largas. Por ejemplo, puede seguir estos pasos generales:

  1. Reemplace todos los espacios en un documento combinado con alguna combinación de caracteres estándar, como [s].

  2. Reemplace todos los guiones en un documento combinado con alguna combinación de caracteres estándar, como [d].

  3. Ahora, todos los párrafos del documento constan de una sola palabra combinada.

  4. Ejecute la herramienta de división de palabras para dividir manualmente el documento.

  5. Siempre que Word encuentre una línea que deba dividirse con guiones, puede disminuir el tamaño de esa línea.

  6. Rehaga sus reemplazos, regrese [s] y [d] a sus espacios y guiones normales.

Esto puede sonar un poco complicado, y lo es. Pero funcionará bastante bien, a menos que desee comenzar a escribir una macro. (Lo crea o no, incluso si no usa macros con tanta frecuencia, esta macro en particular es mucho más fácil que seguir los pasos anteriores una y otra vez).

Al intentar decidir cómo armar la macro, nos espera un triste descubrimiento en VBA. Los usuarios veteranos de Word recordarán que cuando usa la función de conteo de palabras en Word, el programa le muestra el número de líneas en su documento. Esto implicaría que puede usar VBA para determinar el número de líneas en una selección. Desafortunadamente, la propiedad ReadabilityStatistics en VBA no devuelve una estadística para el número de líneas. Eso significa que la estadística que se muestra en el cuadro de diálogo Recuento de palabras se calcula internamente según sea necesario.

La única solución aparente es confiar en la propiedad Information para wdFirstCharacterLineNumber, que devuelve el número de línea del primer carácter de una selección. Desafortunadamente, no hay wdLastCharacterLineNumber especificado en VBA, por lo que la macro debe hacer una selección para el primer carácter de un párrafo, compararlo con una selección del último carácter de un párrafo y ver si se devuelven los mismos dos números de línea. Si no es así, se puede reducir el tamaño del párrafo en puntos y realizar otro cálculo.

La siguiente macro de VBA, ParaforceOneLine, realiza precisamente este proceso. Examina cada párrafo de un documento, y si un párrafo determinado se extiende sobre una sola línea, el tamaño en puntos de ese párrafo en particular se reduce hasta que cabe en una sola línea.

Sub ParaForceOneLine()

Dim objPara As Paragraph     Const ChangeSize = 0.5

For Each lobjPara In ActiveDocument.Paragraphs         With objPara.Range             While .Information(wdFirstCharacterLineNumber) <> _               .Characters(Len(.Text)).Information(wdFirstCharacterLineNumber)

.Font.Size = .Font.Size — ChangeSize             Wend         End With     Next objPara End Sub

_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). Esta sugerencia (9954) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Finding_Long_Lines [Encontrar líneas largas].