1、.在 WORD 中如何利用宏程序刪除不需要的多處表格形式的重復信息1. 首先在執(zhí)行宏程序之前，復制不需要的多處重復信息：更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：2. 將光標插入文檔起始處，打開工具菜單，選擇宏命令，錄制宏.3. 選擇鍵盤，4. 在鍵盤上單擊 CLT+Z，5.單擊指定，形成為快捷鍵，則今后執(zhí)行CLT+Z時，文檔即起動設置好的宏程序，.6. 執(zhí)行編輯菜單，查找命令，執(zhí)行 CLT+V 粘貼，將不需要的多處重復信息：“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”，粘貼到查找和替代的文本框中，單擊查找下一步，找到并選擇“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”7. 執(zhí)行表格菜

2、單，轉換，選擇將表格轉換為文本.8. 選擇制表符，確定，將表格轉換為文本9. 執(zhí)行編輯菜單，查找命令，在查找內(nèi)容中，輸入：“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”，再單擊替換選項卡，替換格為空.10. 單擊替換，再單擊一次替換，即刪除“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”11. 取消替換命令，執(zhí)行工具菜單，選擇VB編輯器.12. 選擇視圖菜單，工程管理器，13. 選擇 Normal, 模塊，雙擊New Macros（新宏），打開程序編輯器窗口.14. 將前兩步形成的以下程序，即 End Sub 以前的部分，進行復制，多次，以便一次可以刪除多處“更多個人簡歷網(wǎng)、求職信、面試技巧

3、、職場指南：”Selection.Find.ClearFormattingWith Selection.Find.Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：.Replacement.Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.CorrectHangulEndings = False.MatchAllWordForms = False.MatchS

4、oundsLike = False.MatchWildcards = False.MatchFuzzy = FalseEnd WithSelection.Find.ExecuteSelection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _TrueSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：.Replacement

5、.Text = .Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.CorrectHangulEndings = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = False.MatchFuzzy = FalseEnd WithSelection.Find.ExecuteWith SelectionIf .Find.Forward = Tru

6、e Then.Collapse Direction:=wdCollapseStartElse.Collapse Direction:=wdCollapseEndEnd If.Find.Execute Replace:=wdReplaceOneIf .Find.Forward = True Then.Collapse Direction:=wdCollapseEndElse.Collapse Direction:=wdCollapseStartEnd If.Find.Execute.End WithSelection.Rows.ConvertToText Separator:=wdSeparat

7、eByTabs, NestedTables:= _TrueSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：.Replacement.Text = .Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.CorrectHangulEndings = F

8、alse.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = False.MatchFuzzy = FalseEnd WithSelection.Find.ExecuteWith SelectionIf .Find.Forward = True Then.Collapse Direction:=wdCollapseStartElse.Collapse Direction:=wdCollapseEndEnd If.Find.Execute Replace:=wdReplaceOneIf .Find.Forward = True Then.Collapse Direction:=wdCollapseEndElse.Collapse Direction:=wdCollapseStartEnd If.Find.ExecuteEnd With15. 保存.16. 回到文檔中，執(zhí)行 CLT+Z，可見一次可刪除多處的“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”，全部刪除后，系統(tǒng)出現(xiàn)結束