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

《在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.在WORD中如何利用宏程序删除不需要的多处表格形式的重复信息1.首先在执行宏程序之前，复制不需要的多处重复信息：更多个人简历网、求职信、面试技巧、职场指南：2.将光标插入文档起始处，打开工具菜单，选择宏命令，录制宏'..3.选择键盘，4.在键盘上单击CLT+Z，5.单击指定，形成为快捷键，则今后执行CLT+Z时，文档即起动设置好的宏程序，'..6.执行编辑菜单，查找命令，执行CLT+V粘贴，将不需要的多处重复信息：“更多个人简历网、求职信、面试技巧、职场指南：”，粘贴到查找和替代的文本框中，单击查找下一步，找到并选择“更多个人简历网

2、、求职信、面试技巧、职场指南：”7.执行表格菜单，转换，选择将表格转换为文本'..8.选择制表符，确定，将表格转换为文本9.执行编辑菜单，查找命令，在查找内容中，输入：“更多个人简历网、求职信、面试技巧、职场指南：”，再单击替换选项卡，替换格为空'..10.单击替换，再单击一次替换，即删除“更多个人简历网、求职信、面试技巧、职场指南：”11.取消替换命令，执行工具菜单，选择VB编辑器'..12.选择视图菜单，工程管理器，13.选择Normal,模块，双击NewMacros（新宏），打开程序编辑器窗口'..14.将前两步形成的以下程序，

3、即EndSub以前的部分，进行复制，多次，以便一次可以删除多处“更多个人简历网、求职信、面试技巧、职场指南：”Selection.Find.ClearFormattingWithSelection.Find.Text="更多个人简历网、求职信、面试技巧、职场指南：".Replacement.Text="更多个人简历网、求职信、面试技巧、职场指南：".Forward=True.Wrap=wdFindContinue'...Format=False.MatchCase=False.MatchWholeWord=False.MatchByt

4、e=True.CorrectHangulEndings=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=False.MatchFuzzy=FalseEndWithSelection.Find.ExecuteSelection.Rows.ConvertToTextSeparator:=wdSeparateByTabs,NestedTables:=_TrueSelection.Find.ClearFormattingSelection.Find.Repl

5、acement.ClearFormattingWithSelection.Find.Text="更多个人简历网、求职信、面试技巧、职场指南：".Replacement.Text="".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.CorrectHangulEndings=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcar

6、ds=False.MatchFuzzy=FalseEndWithSelection.Find.ExecuteWithSelectionIf.Find.Forward=TrueThen.CollapseDirection:=wdCollapseStartElse.CollapseDirection:=wdCollapseEndEndIf.Find.ExecuteReplace:=wdReplaceOneIf.Find.Forward=TrueThen.CollapseDirection:=wdCollapseEndElse.Collap

7、seDirection:=wdCollapseStartEndIf.Find.Execute'..EndWithSelection.Rows.ConvertToTextSeparator:=wdSeparateByTabs,NestedTables:=_TrueSelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWithSelection.Find.Text="更多个人简历网、求职信、面试技巧、职场指南：".Replacement.Text="

8、".Forward=True.Wrap=wdFindAsk.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=True.CorrectHangulEn