Dori Lynn的客户使用Word创建简单的表单。他们经常做的一件事是使用表格来轻松浏览表单。

Dori Lynn想知道是否有一种方法可以从一个表的最后一个单元格(字段)切换到下一个表的第一个单元格。现在,如果她在表的末尾进行了标签,它将创建一个新行。

当插入点位于表格单元格中时,按Tab键通常会将选择项移至表格中的下一个单元格。在表的最后一个单元格中,使用Tab键将新的单元格行添加到表的底部,并将插入点移至新行的第一个单元格。这显然不是Dori Lynn所寻找的行为。

您可以使用两种方法来解决此问题。一个要记住,您可以使用对象浏览器从一个表移动到下一个表。当然,这意味着您不能使用Tab键在表格之间移动,而是可以单击“对象浏览器”按钮(屏幕的右下角,在双倍向上键之间单击小“球”,和向下箭头,然后从选项中选择“按表浏览”以查找那些表。

如果您确实想使用Tab键,那么您将需要创建一个宏。当插入点在表中时按Tab键会使Word执行名为nextcell的命令,该命令又将执行MoveRight命令。可以编写一个自定义的nextcell命令来强制Word执行Dori Lynn想要的操作。

其他_WordTips_涵盖了`link:/ wordribbon-Editing_Words_Built-in_Commands [如何修改现有Word命令]。除非当前单元格是表的最后一个单元格,否则下面的自定义nextcell例程将捕获Tab键并将选择项移至下一个单元格。如果是,那么它将移至文档中的下一个表。如果文档中没有其他表,则插入点将保留在该最后一个表的最后一个单元格中。

Sub nextcell()

Dim oCell As Cell

With Selection         Set oCell = .Cells(1).Next         If oCell Is Nothing Then             .Move unit:=wdTable, Count:=1         Else             .MoveRight Unit:=wdCell         End If     End With End Sub

该子例程将与具有垂直和水平合并的单元格的表一起正常工作。它将处理表中的表,但将在内部表的最后一个单元格处停止。

注意:

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

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

(Microsoft Word是世界上最流行的文字处理软件。)本技巧(5673)适用于Microsoft Word 2007、2010和2013。