為Word表格的指定單元格輸入相同內容

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

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

Sub test（）

Dim t As Table

For Each t In ActiveDocument.Tables

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

Next

End Sub

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