在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息

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 = true then.collapse direction:=wdcollapseendelse.collapse direction:=wdcollapsestartend if.find.executeend with15. 保存.16. 回到文档中，执行 clt+z，可见一次可删除多处的“更多个人简历网、求职信、面试技巧、职场指南：”，全部删除后，系统出现结束