為Word表格的指定單元格輸入相同內(nèi)容

最近在工作中遇到一個(gè)問題，某個(gè)Word文檔有多個(gè)表格，現(xiàn)在要求在各個(gè)表格的第4行、第3列輸入相同的內(nèi)容，例如“工作單位”，如果這個(gè)任務(wù)純粹依靠手工復(fù)制、粘貼的操作完成，既麻煩而且也容易出錯(cuò)。有沒有簡(jiǎn)單一些的方法呢？

借助VBA代碼可以快速完成這一任務(wù)，按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側(cè)窗格插入一個(gè)空白模塊，如圖1所示，在這里手工輸入或粘貼如下代碼：

Sub test（）

Dim t As Table

For Each t In ActiveDocument.Tables

t.Cell（4， 3）.Range.Text = "工作單位"

Next

End Sub

上述代碼中的代碼名稱可以根據(jù)喜好任意設(shè)置，“t.Cell（4， 3）.Range.Text =”后面的內(nèi)容請(qǐng)根據(jù)實(shí)際情況進(jìn)行修改，注意這里需要用英文半角的雙引號(hào)進(jìn)行分隔，“t.Cell（4， 3）”表示目標(biāo)單元格的位置，注意行在前列在后。代碼檢查無誤之后，選擇“文件→關(guān)閉并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”組合鍵，打開“宏”對(duì)話框，選擇并運(yùn)行宏，很快就可以完成批量輸入相同內(nèi)容的任務(wù)，最終效果如圖2所示。