试以前请存盘。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴以下内容：Subttt()Fori=1ToInputBox("准备删除几行？")Selection.MoveDownwdParagraph,,wdExtendSelection.DeleteSelection.MoveDownNextiEndSub回到Word，鼠标移到要删除的第一行的开始，点菜单的工具，宏，运行ttt
查找替换，
