在WORD中如何利用宏程序刪除不需要的多處表格形式的重復(fù)信息

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

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

3、tion.Find.ClearFormatting With 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 = False End With Selection.Find.Execute Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _ True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南： .

5、Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute With Selecti

6、on If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.Ro

7、ws.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _ True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南： .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord =

8、False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With15. 保存16. 回到文檔中，執(zhí)行CLT+Z，可見一次可刪除多處的“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”，全部刪除后，系統(tǒng)