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

在WORD中如何运用宏程序删除不需要的多处表格形式的反复信息
1. 一方面在执行宏程序之前，复制不需要的多处反复信息：更多个人简历网、求职信、面试技巧、职场指南：.cn

2. 将光标插入文档起始处，打开工具菜单，选择宏命令，录制宏

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 With
15. 保存

16. 回到文档中，执行CLT+Z，可见一次可删除多处的“更多个人简历网、求职信、面试技巧、职场指南：.cn”，所有删除后，系统出现结束信息时，单击“结束”回到文档中

17. 以后需要用到该程序，只要将程序中的“更多个人简历网、求职信、面试技巧、职场指南：.cn”改为其他内容即可。
18. 再回到文档中，执行CLT+Z，可见一次可删除多处的“可视化数据库工具”，所有删除后，系统出现结束信息时，单击结束回到文档中