许多后来熟悉WordPerfect的人发现需要学习如何使用Word。有时过渡并不完全顺畅，很大程度上是因为任务在Word中的完成方式与在WordPerfect中的实现方式不同。

一个典型的例子是使用键盘调整表列的宽度。 WordPerfect，一直以来都是“面向键盘的”

程序，使调整变得容易：只需按>或<即可扩大或缩小列。另一方面，Word始终以鼠标为导向，并且没有与此任务等效的键盘命令。

有变通办法；例如，您可以使用键盘键入Alt + A，R，U，然后按两次Tab键以进入列宽字段。当然，这样做的问题在于它并不容易（或直观）。

如果您不介意使用鼠标，则可以在拖动列边框时按住Alt键。标尺更改为在移动边框时显示列的精确宽度。非常酷，但是对于那些只想使用键盘的人来说仍然很痛苦。 （对于可能没有很好的鼠标分辨率或无法将鼠标移动很小距离的用户来说，这也不是很有用。）

也许最好的解决方案是自己模拟WordPerfect功能。下面的宏可以做到这一点：

Sub StretchColumn()

Dim CurrentSize As Integer     Dim NextSize As Integer     Dim CurCol As Integer

'Get the current width (in points)

CurCol = Selection.Cells(1).ColumnIndex     CurrentSize = Selection.Tables(1).Columns(CurCol).Width

'Increase the current width by one point     NextSize = CurrentSize + 1     Selection.Columns(1).SetWidth _       ColumnWidth:=NextSize, _       Rulerstyle:=wdAdjustNone End Sub

如果将此宏分配给快捷键（如_WordTips_的其他问题所述），则每次按快捷键时，当前表列的宽度可以增加一点（1/72英寸）。您也可以对宏进行简单的更改，以创建一个减小列宽的版本：

Sub ShrinkColumn()

Dim CurrentSize As Integer     Dim NextSize As Integer     Dim CurCol As Integer

'Get the current width (in points)

CurCol = Selection.Cells(1).ColumnIndex     CurrentSize = Selection.Tables(1).Columns(CurCol).Width

'Decrease the current width by one point     NextSize = CurrentSize - 1     Selection.Columns(1).SetWidth _       ColumnWidth:=NextSize, _       Rulerstyle:=wdAdjustNone End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

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

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

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（3912）适用于Microsoft Word 97、2000、2002和2003。您可以找到用于Word（Word 2007）的功能区界面的该技巧的版本。和更高版本）在这里：

从键盘调整列宽。