Vous avez travaillé longtemps et dur sur la conception de votre page, y compris quelques tableaux qui conviennent parfaitement. Ensuite, il est nécessaire d’ajouter un peu plus de texte dans l’un des tableaux. Le résultat est que le texte d’une cellule s’enroule et pousse un peu tout le reste vers le bas. Maintenant, tout votre design est jeté! Vous aspirez à un moyen d’ajuster automatiquement la taille du texte dans une cellule afin que vous n’ayez pas l’habillage et la poussée.

Si vous utilisez Word 2000, Word 2002 ou Word 2003, il existe une option intégrée qui peut faire l’affaire. Suivez simplement ces étapes:

  1. Sélectionnez la ou les cellules que vous souhaitez mettre en forme.

  2. Choisissez Propriétés du tableau dans le menu Tableau. La boîte de dialogue Propriétés de la table s’affiche.

  3. Si nécessaire, sélectionnez l’onglet Cellule. (Voir la figure 1.)

  4. Cliquez sur le bouton Options. Word affiche la boîte de dialogue Options de cellule. (Voir la figure 2.)

  5. Assurez-vous que la case Ajuster le texte est cochée.

  6. Cliquez sur OK pour fermer la boîte de dialogue Options de cellule.

  7. Cliquez sur OK pour fermer la boîte de dialogue Propriétés du tableau.

Ce que fait Word est de réduire la taille apparente du texte afin que tout rentre. Word réduit la largeur du texte en «froissant» (un terme très technique) le texte ensemble horizontalement, sans l’ajuster verticalement.

Si vous utilisez Word 97, il n’existe aucun moyen inhérent d’accomplir la tâche. Word ne fournit aucune propriété que vous pouvez vérifier pour déterminer la largeur de différents caractères, chacun pouvant être de taille différente et avoir d’autres attributs. Vous pouvez, cependant, créer une macro qui peut vous aider en affichant la largeur d’une chaîne de texte en points ou en pouces. Par exemple, la macro VBA suivante affiche une zone de saisie afin que vous puissiez saisir votre chaîne, affiche la boîte de dialogue Police afin que vous puissiez spécifier la police et la taille en points, puis affiche la largeur de la chaîne résultante.

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 seule difficulté avec cette macro, bien sûr, est qu’elle n’est pas «automatique». Par exemple, il n’ajustera pas la taille d’une chaîne de texte à la taille maximale possible pour tenir dans une cellule. À long terme, il peut être plus facile d’expérimenter simplement différentes tailles de police pour obtenir des informations dans la cellule jusqu’à ce que vous trouviez la bonne taille pour vos besoins.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (3780) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Fitting_Text_Into_Cells [Ajuster le texte dans les cellules].