后来许多熟悉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_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本提示（13369）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

从键盘调整列宽。