Ha trabajado mucho en el diseño de su página, incluido un par de tablas que son las correctas. Luego, surge la necesidad de agregar un poco más de texto en una de las tablas. El resultado es que el texto de una celda envuelve y reduce un poco todo lo demás. ¡Ahora todo tu diseño está descartado! Anhela una forma de ajustar automáticamente el tamaño del texto en una celda para que no se produzca el ajuste y el empuje.

Si está utilizando Word 2000, Word 2002 o Word 2003, hay una opción incorporada que puede hacer el truco. Simplemente siga estos pasos:

  1. Seleccione la celda o celdas a las que desea dar formato.

  2. Elija Propiedades de la tabla en el menú Tabla. Se muestra el cuadro de diálogo Propiedades de la tabla.

  3. Si es necesario, seleccione la pestaña Celda. (Ver figura 1)

  4. Haga clic en el botón Opciones. Word muestra el cuadro de diálogo Opciones de celda. (Ver figura 2)

  5. Asegúrese de que la casilla de verificación Ajustar texto esté seleccionada.

  6. Haga clic en Aceptar para cerrar el cuadro de diálogo Opciones de celda.

  7. Haga clic en Aceptar para cerrar el cuadro de diálogo Propiedades de la tabla.

Lo que hace Word es disminuir el tamaño aparente del texto para que todo encaje. Word reduce el ancho del texto «arrugando» (un término muy técnico) el texto junto horizontalmente, sin ajustarlo verticalmente.

Si está utilizando Word 97, no hay una forma inherente de realizar la tarea. Word no proporciona ninguna propiedad que pueda verificar para determinar el ancho de varios caracteres, cada uno de los cuales podría tener diferentes tamaños y tener otros atributos. Sin embargo, puede crear una macro que pueda ayudarlo mostrando el ancho de una cadena de texto en puntos o pulgadas. Por ejemplo, la siguiente macro de VBA muestra un cuadro de entrada para que pueda ingresar su cadena, muestra el cuadro de diálogo Fuente para que pueda especificar la fuente y el tamaño en puntos, y luego muestra el ancho de la cadena resultante.

Sub GetStringLength()

Dim sngInitPos As Single     Dim sngEndPos As Single     Dim strText As String     Dim sngLength As Single

strText = InputBox("Enter the string whose length you want to determine")

Documents.Add     Dialogs(wdDialogFormatFont).Show

sngInitPos = Selection.Information(wdHorizontalPositionRelativeToPage)

Selection.InsertAfter strText     Selection.EndOf     sngEndPos = Selection.Information(wdHorizontalPositionRelativeToPage)

sngLength = sngEndPos — sngInitPos

MsgBox "Your string has a length of " & sngLength & _         " points, or " & PointsToInches(sngLength) & " inches."

ActiveDocument.Close savechanges:=False End Sub

La única dificultad con esta macro, por supuesto, es que no es «automática». Por ejemplo, no ajustará el tamaño de una cadena de texto al tamaño máximo posible para que quepa dentro de una celda. A largo plazo, puede ser más fácil experimentar con diferentes tamaños de fuente para obtener información en la celda hasta que encuentre el tamaño adecuado para sus necesidades.

_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 (3780) 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-Fitting_Text_Into_Cells [Encajar texto en celdas].