Многие люди, знакомые с WordPerfect, позже обнаруживают, что им необходимо научиться пользоваться Word. Иногда переход не совсем плавный, во многом потому, что задачи в Word не выполняются так же, как в WordPerfect.

Речь идет о настройке ширины столбцов таблицы с помощью клавиатуры. WordPerfect, который всегда был «ориентирован на клавиатуру»

Программа упрощает настройку: просто нажмите> или <, чтобы расширить или сузить столбец. Word, с другой стороны, всегда был больше ориентирован на мышь и не имеет эквивалентных клавиатурных команд для этой задачи.

Есть обходные пути; например, вы можете использовать клавиатуру для ввода Alt + A, R, U, а затем нажать клавишу Tab пару раз, чтобы перейти к полю ширины столбца. Проблема с этим, конечно, в том, что это далеко не просто (или интуитивно).

Если вы не против использовать мышь, вы можете удерживать клавишу Alt при перетаскивании границы столбца. Линейка изменяется, показывая точную ширину ваших столбцов при перемещении границы. Очень круто, но все же неприятно для тех, кто предпочитает просто пользоваться клавиатурой. (Это также не очень полезно для тех, у кого не очень хорошее разрешение мыши или кто не может перемещать мышь на очень небольшие расстояния.)

Возможно, лучшее решение — создать собственную имитацию возможностей WordPerfect. Следующий макрос может это сделать:

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

Если вы назначаете этот макрос сочетанию клавиш (как описано в других вопросах WordTips), то вы можете увеличивать ширину текущего столбца таблицы на одну точку (1/72 дюйма) при каждом нажатии сочетания клавиш. Вы можете просто изменить макрос, чтобы создать версию, которая также уменьшает ширину столбца:

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13369) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Adjusting_Column_Width_from_the_Keyboard [Регулировка ширины столбца с клавиатуры].