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

在WORD中如何运用宏程序删除不需要的多处表格形式的反复信息1. 一方面在执行宏程序之前，复制不需要的多处反复信息：更多个人简历网、求职信、面试技巧、职场指南：.cn2. 将光标插入文档起始处，打开工具菜单，选择宏命令，录制宏3. 选择键盘， 4. 在键盘上单击CLT+Z，5. 单击指定，形成为快捷键，则此后执行CLT+Z时，文档即起动设立好的宏程序，6. 执行编辑菜单，查找命令，执行CLT+V粘贴，将不需要的多处反复信息：“更多个人简历网、求职信、面试技巧、职场指南：.cn”，粘贴到查找和替代的文本框中，单击查找下一步，找到并选择“更多个人简历网、求职信、面试技巧、职场指南：.cn”7. 执行表格菜单，转换，选择将表格转换为文本8. 选择制表符，拟定，将表格转换为文本9. 执行编辑菜单，查找命令，在查找内容中，输入：“更多个人简历网、求职信、面试技巧、职场指南：.cn”，再单击替换选项卡，替换格为空10. 单击替换，再单击一次替换，即删除“更多个人简历网、求职信、面试技巧、职场指南：.cn”11. 取消替换命令，执行工具菜单，选择VB编辑器12. 选择视图菜单，工程管理器，13. 选择Normal,模块，双击New Macros（新宏），打开程序编辑器窗口14. 将前两步形成的以下程序，即End Sub以前的部分，进行复制，多次，以便一次可以删除多处“更多个人简历网、求职信、面试技巧、职场指南：.cn” Selection.Find.ClearFormatting With Selection.Find .Text = 更多个人简历网、求职信、面试技巧、职场指南：.cn .Replacement.Text = 更多个人简历网、求职信、面试技巧、职场指南：.cn .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _ True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 更多个人简历网、求职信、面试技巧、职场指南：.cn .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _ True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = 更多个人简历网、求职信、面试技巧、职场指南：.cn .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With15. 保存16. 回到文档中，执行CLT+Z，可见一次可删除多处的“更多个人简历网、求职信、面试技巧、职场指南：.cn”，所有删除后，系统出现结束信息时，单击“结束”回到文档中17. 以后需要用到该程序，只要将程序中的“更多个人简历网、求职信、面试技巧、职场指南：.cn”改为其他内容即可。18. 再回到文档中，执行CLT+Z，可见一次可删除多处的“可视化数据库工具”，所有删除后，系统出现结束信息时，单击结束回到文档中