資源描述：
《在WORD中如何利用宏程序刪除不需要的多處表格形式的重復(fù)信息.docx》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
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)
2、、求職信、面試技巧、職場指南：”7.執(zhí)行表格菜單，轉(zhuǎn)換，選擇將表格轉(zhuǎn)換為文本'..8.選擇制表符，確定，將表格轉(zhuǎn)換為文本9.執(zhí)行編輯菜單，查找命令，在查找內(nèi)容中，輸入：“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”，再單擊替換選項卡，替換格為空'..10.單擊替換，再單擊一次替換，即刪除“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”11.取消替換命令，執(zhí)行工具菜單，選擇VB編輯器'..12.選擇視圖菜單，工程管理器，13.選擇Normal,模塊，雙擊NewMacros（新宏），打開程序編輯器窗口'..14.將前兩步形成的以下程序，
3、即EndSub以前的部分，進(jìn)行復(fù)制，多次，以便一次可以刪除多處“更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：”Selection.Find.ClearFormattingWithSelection.Find.Text="更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：".Replacement.Text="更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：".Forward=True.Wrap=wdFindContinue'...Format=False.MatchCase=False.MatchWholeWord=False.MatchByt
4、e=True.CorrectHangulEndings=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=False.MatchFuzzy=FalseEndWithSelection.Find.ExecuteSelection.Rows.ConvertToTextSeparator:=wdSeparateByTabs,NestedTables:=_TrueSelection.Find.ClearFormattingSelection.Find.Repl
5、acement.ClearFormattingWithSelection.Find.Text="更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：".Replacement.Text="".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.CorrectHangulEndings=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcar
6、ds=False.MatchFuzzy=FalseEndWithSelection.Find.ExecuteWithSelectionIf.Find.Forward=TrueThen.CollapseDirection:=wdCollapseStartElse.CollapseDirection:=wdCollapseEndEndIf.Find.ExecuteReplace:=wdReplaceOneIf.Find.Forward=TrueThen.CollapseDirection:=wdCollapseEndElse.Collap
7、seDirection:=wdCollapseStartEndIf.Find.Execute'..EndWithSelection.Rows.ConvertToTextSeparator:=wdSeparateByTabs,NestedTables:=_TrueSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南：".Replacement.Text="
8、".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.CorrectHangulEn
