在word中，如何在表格里快速填入序号

huaxianzi · 发表于 2003-5-22 14:42

比如象excel里，一拖就出来了。在word能有什么办法吗？

守柔 · 发表于 2003-5-23 04:17

选定需要编号的表格中的行或列，在常用工具栏中点击自动编号（123）按钮即可，如果对编号不满意，当然还可以更改（项目符号和编号）。如果选定整个表格，将对整个表格进行编号。

huaxianzi · 发表于 2003-5-27 12:53

谢谢！但是，怎么才能把自己需要的编号样式设为编号按钮的默认值呢？我试过了，每次重新打开word它又恢复为程序默认的样式。

rabbitli · 发表于 2003-5-27 15:30

写个vba，就行了，不太难。

huaxianzi · 发表于 2003-5-27 20:04

以下是引用rabbitli在2003-5-27 15:30:13的发言： 写个vba，就行了，不太难。

只有这个办法吗？

rabbitli · 发表于 2003-5-28 16:24

可以参考以下程序： Sub Macro2() Dim b, i As Integer b = InputBox("输入要向下的添加的多少次.", "序号", Default:="1") '弹出一个输入框 For i = 1 To b Selection.EndKey Unit:=wdLine Selection.HomeKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=i Selection.MoveDown Next i MsgBox "你添加了" & b & "条记录！" End Sub

		自动登录	找回密码
密码			免费注册