前言｜職場實例
今天小編遇到一個價值很高的Word文檔批量處理的問題，如果大家在日常的職場辦公中真要是遇到了，肯定可以極大的提高工作效率。
如下圖所示：
如果在一個Word文檔中存在有N頁（本例中以2頁舉例），并且每頁中包含一個完全一樣的“信息調查表”表格模闆。我們發現每個“信息調查表”中“電話”項目出現了重複行。
現在我們想要批量删除每頁“信息調查表”中的一個重複的“電話”行，即将每頁中“信息調查表”的第5行删除，隻保留第3行唯一的“電話”行信息即可。效果圖如下圖所示：
方案｜步驟演示
我們可以利用在Word中運行一段VBA代碼，瞬間實現批量删除指定行的效果。
打開Word文檔，按下快捷鍵Alt F11，調出VBA錄入編輯窗口，我們将下面一段VBA代碼複制粘貼進去，然後點擊上方的“運行-運行子過程/用戶窗體”按鈕，最後關閉VBA界面窗口，回到Word文檔的主界面，我們發現：每頁文檔中“信息調查表”的第5行（重複電話行）就批量删除了。如下圖所示：
代碼如下：
Sub 删除行()
Dim myTab As Table
For Each myTab In ActiveDocument.Tables
myTab.Rows(5).Delete
Next
End Sub
代碼釋義
代碼中的：
myTab.Rows(5).Delete
需要根據具體的情況進行設置，由于本例中批量删除每頁表格中的第5行，所以其中的數字輸入的是5。
如果你想要删除第3行，就把5改成3即可。
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
