De nombreuses personnes familiarisées avec WordPerfect par la suite ont besoin d’apprendre à utiliser Word. Parfois, la transition n’est pas entièrement fluide, en grande partie parce que les tâches ne sont pas accomplies de la même manière dans Word que dans WordPerfect.

Un exemple typique est l’ajustement de la largeur des colonnes du tableau à l’aide du clavier. WordPerfect, qui a toujours été un « clavier orienté »

programme, facilite les réglages: appuyez simplement sur> ou <pour élargir ou réduire la colonne. Word, en revanche, a toujours été plus orienté souris et n’a pas de commande clavier équivalente pour cette tâche.

Il existe des solutions de contournement; par exemple, vous pouvez utiliser le clavier pour taper Alt + A, R, U, puis appuyer sur Tab plusieurs fois pour accéder au champ de largeur de colonne. Le problème avec cela, bien sûr, est que ce n’est pas loin d’être facile (ou intuitif).

Si cela ne vous dérange pas d’utiliser la souris, vous pouvez maintenir la touche Alt enfoncée tout en faisant glisser une bordure de colonne. La règle change pour afficher la largeur précise de vos colonnes lorsque vous déplacez la bordure. Très cool, mais toujours pénible pour ceux qui préfèrent simplement utiliser le clavier. (Ce n’est pas non plus très utile pour ceux qui n’ont pas une très bonne résolution de la souris ou qui ne peuvent pas déplacer la souris sur de très petites distances.)

La meilleure solution est peut-être de créer votre propre émulation de la fonctionnalité WordPerfect. La macro suivante peut faire exactement cela:

Sub StretchColumn()

Dim iCol As Integer     Dim sCurrent As Single

If Selection.Information(wdWithInTable) Then         If Selection.Columns.Count = 1 Then             iCol = Selection.Cells(1).ColumnIndex             sCurrent = Selection.Tables(1).Columns(iCol).Width             Selection.Tables(1).Columns(iCol).SetWidth _               ColumnWidth:=sCurrent + 1, RulerStyle:=wdAdjustNone         Else             MsgBox ("More than one column selected")

End If     Else         MsgBox ("Insertion point not within a table")

End If End Sub

Si vous affectez cette macro à une touche de raccourci (comme décrit dans d’autres problèmes de WordTips), vous pouvez augmenter la largeur de la colonne de tableau actuelle d’un point (1/72 de pouce) chaque fois que vous appuyez sur la touche de raccourci. Vous pouvez apporter une simple modification à la macro pour créer une version qui diminue également la largeur de la colonne:

Sub ShrinkColumn()

Dim iCol As Integer     Dim sCurrent As Single     Dim sNext As Single

If Selection.Information(wdWithInTable) Then         If Selection.Columns.Count = 1 Then             iCol = Selection.Cells(1).ColumnIndex             sCurrent = Selection.Tables(1).Columns(iCol).Width             sNext = sCurrent - 1             If sNext < 1 Then sNext = 1             Selection.Tables(1).Columns(iCol).SetWidth _               ColumnWidth:=sNext, RulerStyle:=wdAdjustNone         Else             MsgBox ("More than one column selected")

End If     Else         MsgBox ("Insertion point not within a table")

End If End Sub

_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 (13369) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Adjusting_Column_Width_from_the_Keyboard [Réglage de la largeur de colonne à partir du clavier].