在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，可见一次可删除多处的“更多个人简历网、求职信、面试技巧、职场指南：”，全部删除后，系统出现结束