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

在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息 首先在执行宏程序之前，复制不需要的多处重复信息：更多个人简历网、求职信、面试技巧、职场指南： 将光标插入文档起始处，打开工具菜单，选择宏命令，录制宏 选择键盘， 在键盘上单击CLT+Z， 单击指定，形成为快捷键，则今后执行CLT+Z时，文档即起动设置好的宏程序， 执行编辑菜单，查找命令，执行CLT+V粘贴，将不需要的多处重复信息：“更多个人简历网、求职信、面试技巧、职场指南：”，粘贴到查找和替代的文本框中，单击查找下一步，找到并选择“更多个人简历网、求职信、面试技巧、职场指南：” 执行表格菜单，转换，选择将表格转换为文本 选择制表符，确定，将表格转换为文本 执行编辑菜单，查找命令，在查找内容中，输入：“更多个人简历网、求职信、面试技巧、职场指南： ”，再单击替换选项卡，替换格为空 单击替换，再单击一次替换，即删除“更多个人简历网、求职信、面试技巧、职场指南：” 取消替换命令，执行工具菜单，选择VB编辑器 选择视图菜单，工程管理器， 选择Normal,模块，双击New Macros（新宏），打开程序编辑器窗口 将前两步形成的以下程序，即End Sub以前的部分，进行复制，多次，以便一次可以删除多处“更多个人简历网、求职信、面试技巧、职场指南：” Selection.Find.ClearFormatting With Selection.Find .Text = 更多个人简历网、求职信、面试技巧、职场指南： .Replacement.Text = 更多个人简历网、求职信、面试技巧、职场指南： .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 = 更多个人简历网、求职信、面试技巧、职场指南： .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 Dire