摘要： 一、删除连续的重复段落
菜单操作：编辑→替换，在对话框中勾选通配符。
查找内容为：(?{1,}^13)1
替换为：1
点击“全部替换”按钮
重复几次，直到替换处数为0。
二、删除不连续的重复段落
设置Word表格的VBA代码
设置Word表格的VBA代码 VBA代码设置Word表格属性。 Dim i As Table， N As Integer On Error Resume Next ’忽略错误 Application.ScreenUpdating = False ’关闭屏幕更新 For Each i In ActiveDocument.Tables ’在表格中循环 With i .Style =
菜单操作：编辑-替换，在对话框中勾选通配符
查找内容为：^13(?{1,}^13)(*)1
替换为：^1312
点击“全部替换”按钮
重复几次，只到替换处数为0。
三、注意事项
1、最好先清除多余空行;
2、替换之前，一定把光标放在文章开始处(Ctrl Home)，因为WORD默认是从光标开始处查找。或者全选文档(Ctrl A)。
快速找到并选择word字体的方法
快速找到并选择word字体的方法 方法如下： 实现原理： 为了达到快速选择字体的目的，我们可以将常用字体以按钮形式放置在工具栏上。 设置方法： 1、首先右击Word工具栏，选择“自定义“命令，打开“自定义”对话框; 2、在“自定义”对话框中选择“命令”选项卡，并移动光标条到类别栏中的“字体”项，看到平时经常使用的字体，把它拖到工具栏成为按钮; 3、以后要快速选择字体，只要先选中文本，再按下工具栏上字体按钮即可，省去了从字体下拉列表框中众多字体中选择的麻烦。
