选中要替换的内容,先进行排序(“表格/排序”)选择要替换的内容,按下Ctrl+H组合键,打开“替换”对话框,勾选“使用通配符”在查找内容框中输入(*^13){2,},在替换为框中输入\1
试以前请存盘。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴以下内容:Sub ttt()
For i = 1 To InputBox("准备删除几行?")Selection.MoveDown wdParagraph, , wdExtend
Selection.Delete
Selection.MoveDown
Next i
End Sub
回到Word,鼠标移到要删除的第一行的开始,点菜单的工具,宏,运行ttt
按ctrl+h(替换功能),输入重复的句子,替换为输入空字符,然后选择全部替换