嗨，面对160页每页至少3条直线的文档，手动删除确实是个噩梦！别发愁，这里有两个实用方法能帮你批量搞定：

方法一：用VBA宏精准删除（推荐，效率最高） #

这种方法只会删除直线形状，不会误删其他图形，特别适合大文档：

• 打开目标Word文档，按下Alt+F11快速打开VBA编辑器
• 在左侧的「项目」面板里，右键点击你的文档名称，选择「插入」→「模块」
• 在弹出的代码编辑窗口中，粘贴以下代码：

Sub DeleteAllLines()
    Dim shp As Shape
    ' 遍历文档中所有形状
    For Each shp In ActiveDocument.Shapes
        ' 判断是否为直线类型（msoLine是Word内置的直线常量）
        If shp.Type = msoLine Then
            shp.Delete
        End If
    Next shp
    MsgBox "所有直线已批量删除完成！", vbInformation
End Sub

• 按下F5键运行宏，或者点击编辑器工具栏上的「运行」按钮（绿色三角图标）
• 等弹出提示框就搞定了，记得及时保存文档

方法二：用选择窗格手动筛选删除（适合不想用宏的情况） #

如果对宏不太熟悉，也可以用Word自带的选择窗格来操作：

• 点击顶部「开始」选项卡，找到「编辑」组里的「选择」→「选择窗格」，右侧会弹出所有形状的列表
• 列表里的直线通常会命名为「直线 1」「直线 2」这类，你可以按住Ctrl键逐个选中所有直线条目
• 选中后按下键盘上的Delete键，就能一次性删除所有选中的直线

两种方法里，宏的效率无疑是最高的，完全不用手动筛选，适合你这种超长篇幅的文档，赶紧试试吧！

备注：内容来源于stack exchange，提问作者Astral Wanderer