很多時(shí)候Word中的表格操作沒(méi)有Excel中方便，例如以下這種情況：
表格中的第一列是序號(hào)，需要填入依次遞增的數(shù)字，但是Word中又沒(méi)有填充功能，難道這種情況下只能一個(gè)個(gè)手動(dòng)輸入嗎？
當(dāng)然不可能。
本鶘雖然懂些辦公自動(dòng)化的皮毛，但也忍不了這種低效的操作，這里提供三種常用的方法，大家可以按需選用。
01 插入項(xiàng)目編號(hào)
最簡(jiǎn)單的一種方法，直接在序號(hào)列插入項(xiàng)目編號(hào)，缺點(diǎn)是無(wú)法完全居中，不美觀。
如果對(duì)居中沒(méi)有要求，這種方式應(yīng)該是最簡(jiǎn)單方便的。
但這種不完美對(duì)于強(qiáng)迫癥來(lái)說(shuō)，例如本鶘:smile:，簡(jiǎn)直是眼中釘肉中刺，絕對(duì)忍不了。
強(qiáng)迫癥們可以看看后面兩種方法。
?? 插入項(xiàng)目編號(hào)
02 Word域代碼
{ SEQ list }
Word中的域代碼類似于公式，域代碼的結(jié)果類似于公式生成的值。本例中SEQ域的作用是自動(dòng)生成序列號(hào)。
在需要輸入序列號(hào)的位置【插入】...【文檔部件】...【域】，選擇SEQ域，在SEQ后面輸入list（也可以是其他字符），點(diǎn)擊確定。
按Alt+F9切換域代碼顯示，可以看到生成了{ SEQ list }的域代碼，這里可以將其理解成定義了一個(gè)名字為list的SEQ變量。
也可以按Ctrl+F9出現(xiàn)一對(duì)花括號(hào)，在花括號(hào)中輸入SEQ list。
將SQE域代碼復(fù)制到所有要輸入序列號(hào)的單元格，全部選中，按F9更新即可看到已生成序列號(hào)。
?? 插入SEQ域
這種方式會(huì)有一個(gè)問(wèn)題，就是當(dāng)存在多個(gè)表格時(shí)，后面表格中序列號(hào)的起始值時(shí)接著上一表格的，并不是從1開(kāi)始，
這時(shí)就需要加上開(kāi)關(guān)指令\r。
?? 序列號(hào)緊接著上一表格
{ SEQ list\r1 }
為了使每個(gè)表格的序列號(hào)都單獨(dú)從起始序號(hào)1開(kāi)始，需要加上開(kāi)關(guān)指令，這里/r的意思是r后面的編號(hào)重設(shè)序列號(hào)，這里輸入1，表示后面的編號(hào)從1開(kāi)始。
?? 加上開(kāi)關(guān)指令\r1后編號(hào)從1開(kāi)始
雖然SEQ域代碼的方法能夠解決序列號(hào)無(wú)法水平居中的問(wèn)題，但是該方法還是不夠智能化——
插入域后還需要復(fù)制粘貼，多個(gè)表格情況還要修改域代碼，操作略顯繁瑣。
那有沒(méi)有只需設(shè)置好后就能一鍵操作的方式呢？
那看來(lái)只能是用到VBA了。
03 VBA代碼
這里直接附上VBA代碼，將代碼粘貼到Word的VB編輯器中，保存，從宏命令中調(diào)用即可。也可以添加到自定義工具欄上，方便調(diào)用。
Sub 自動(dòng)插入序號(hào)()
Dim i As Integer
i = 1
'遍歷選中的單元格
With Selection
For Each aCell In .Cells
aCell.Range.Delete '刪除原有內(nèi)容
aCell.Range.InsertAfter i '輸入序號(hào)
i = i + 1 '序號(hào)遞增
Next aCell
End With
End Sub
?? VBA生成序列號(hào)
可以看到，只需要選擇需要輸入序列號(hào)的單元格，運(yùn)行VBA代碼即可自動(dòng)生成序列號(hào)，比起前兩種方法，這種方法解決了序列號(hào)水平居中的問(wèn)題，同時(shí)操作相對(duì)簡(jiǎn)潔，可以稱得上真正的“一鍵操作”。
