《在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息.docx》由会员分享,可在线阅读,更多相关《在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息.docx(10页珍藏版)》请在三一文库上搜索。
1、.在 WORD 中如何利用宏程序删除不需要的多处表格形式的重复信息1. 首先在执行宏程序之前,复制不需要的多处重复信息:更多个人简历网、求职信、面试技巧、职场指南:2. 将光标插入文档起始处,打开工具菜单,选择宏命令,录制宏.3. 选择键盘,4. 在键盘上单击 CLT+Z,5.单击指定,形成为快捷键,则今后执行CLT+Z时,文档即起动设置好的宏程序,.6. 执行编辑菜单,查找命令,执行 CLT+V 粘贴,将不需要的多处重复信息:“更多个人简历网、求职信、面试技巧、职场指南:”,粘贴到查找和替代的文本框中,单击查找下一步,找到并选择“更多个人简历网、求职信、面试技巧、职场指南:”7. 执行表格菜
2、单,转换,选择将表格转换为文本.8. 选择制表符,确定,将表格转换为文本9. 执行编辑菜单,查找命令,在查找内容中,输入:“更多个人简历网、求职信、面试技巧、职场指南:”,再单击替换选项卡,替换格为空.10. 单击替换,再单击一次替换,即删除“更多个人简历网、求职信、面试技巧、职场指南:”11. 取消替换命令,执行工具菜单,选择VB编辑器.12. 选择视图菜单,工程管理器,13. 选择 Normal, 模块,双击New Macros(新宏),打开程序编辑器窗口.14. 将前两步形成的以下程序,即 End Sub 以前的部分,进行复制,多次,以便一次可以删除多处“更多个人简历网、求职信、面试技巧
3、、职场指南:”Selection.Find.ClearFormattingWith Selection.Find.Text = 更多个人简历网、求职信、面试技巧、职场指南:.Replacement.Text = 更多个人简历网、求职信、面试技巧、职场指南:.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 = 更多个人简历网、求职信、面试技巧、职场指南:.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 = 更多个人简历网、求职信、面试技巧、职场指南:.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
9、= True Then.Collapse Direction:=wdCollapseEndElse.Collapse Direction:=wdCollapseStartEnd If.Find.ExecuteEnd With15. 保存.16. 回到文档中,执行 CLT+Z,可见一次可删除多处的“更多个人简历网、求职信、面试技巧、职场指南:”,全部删除后,系统出现结束信息时,单击“结束”回到文档中17. 以后需要用到该程序,只要将程序中的“更多个人简历网、求职信、面试技巧、职场指南:”改为其他内容即可。18. 再回到文档中,执行 CLT+Z,可见一次可删除多处的“可视化数据库工具”,全部删除后,系统出现结束信息时,单击结束回到文档中.