Justere kolonnebredde fra Keyboard

April 16  by Eliza

Mange folk som er kjent med Wordperfect senere finner det nødvendig å lære å bruke Word. Noen ganger overgangen er ikke helt glatt, i stor grad fordi oppgavene ikke er oppnådd på samme måte i Word som de er i Wordperfect.

Et eksempel på dette er å justere bredden på tabellkolonner ved hjelp av tastaturet. Wordperfect, som alltid har vært en "tastatur orientert" program, gjør justeringer enkelt: Bare trykk> eller <for å utvide eller begrense kolonnen. Ord, på den annen side, har alltid vært mer mus orientert og har ingen tilsvarende tastatur kommando for denne oppgaven.

Det finnes løsninger; for eksempel, kan du bruke tastaturet til å skrive Alt + A, R, U, og trykk deretter Tab et par ganger for å komme til feltet kolonnebredde. Problemet med dette, selvfølgelig, er at det er ikke noe i nærheten lett (eller intuitiv).

Hvis du ikke har noe imot å bruke musen, kan du holde nede Alt-tasten grensen en kolonne som du drar. Herskeren endres for å vise den nøyaktige bredden på kolonner som du flytter grensen. Veldig kult, men fortsatt en smerte for de som ville heller bare bruke tastaturet. (Det er også ikke veldig nyttig for de som kanskje ikke har veldig god mus oppløsning, eller som ikke kan bevege musa veldig små avstander.)

Kanskje den beste løsningen er å lage din egen emulering av Wordperfect evne. Følgende makro kan gjøre akkurat det:

Sub StretchColumn ()
Dim CurrentSize As Integer
Dim NextSize As Integer
Dim CurCol As Integer

"Få den nåværende bredde (i poeng)
CurCol = Selection.Cells (1) .ColumnIndex
CurrentSize = Selection.Tables (1) .Columns (CurCol) .Width

"Øk nåværende bredde med ett poeng
NextSize = CurrentSize + 1
Selection.Columns (1) .SetWidth _
ColumnWidth: = NextSize, _
Rulerstyle: = wdAdjustNone
End Sub

Hvis du tilordner denne makroen til en hurtigtast (som beskrevet i andre saker av WordTips), så kan du øke bredden på gjeldende tabellkolonne med ett poeng (1/72 tomme) hver gang du trykker på hurtigtasten. Du kan gjøre en enkel endring i makro å lage en versjon som reduserer kolonnebredden, i tillegg:

Sub ShrinkColumn ()
Dim CurrentSize As Integer
Dim NextSize As Integer
Dim CurCol As Integer

"Få den nåværende bredde (i poeng)
CurCol = Selection.Cells (1) .ColumnIndex
CurrentSize = Selection.Tables (1) .Columns (CurCol) .Width

"Reduser den nåværende bredde med ett poeng
NextSize = CurrentSize - 1
Selection.Columns (1) .SetWidth _
ColumnWidth: = NextSize, _
Rulerstyle: = wdAdjustNone
End Sub

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (3912) gjelder for Microsoft Word 97, 2000, 2002, og 2003.