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

借助VBA代碼可以快速完成這一任務(wù)，按下“Alt+F11”組合鍵，打開Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側(cè)窗格插入一個空白模塊，如圖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)容請根據(jù)實際情況進(jìn)行修改，注意這里需要用英文半角的雙引號進(jìn)行分隔，“t.Cell（4， 3）”表示目標(biāo)單元格的位置，注意行在前列在后。代碼檢查無誤之后，選擇“文件→關(guān)閉并返回到Microsoft Word”命令，返回Word主界面，按下“Alt+F8”組合鍵，打開“宏”對話框，選擇并運行宏，很快就可以完成批量輸入相同內(nèi)容的任務(wù)，最終效果如圖2所示。