資源描述:
《在WORD中如何利用宏程序刪除不需要的多處表格形式的重復(fù)信息.docx》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、.在WORD中如何利用宏程序刪除不需要的多處表格形式的重復(fù)信息1.首先在執(zhí)行宏程序之前,復(fù)制不需要的多處重復(fù)信息:更多個人簡歷網(wǎng)、求職信、面試技巧、職場指南:2.將光標插入文檔起始處,打開工具菜單,選擇宏命令,錄制宏'..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以前的部分,進行復(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