word如何边写边删

1.在word中如何批量删除带边框段落的内容?

你的文档中的这些个 边框是 文本框 还是 段落格式设置的边框？

如果是文本框 或者图文框的话 用下面的代码 可以运行后删除……

Sub test()

ActiveDocument.Shapes.SelectAll

Selection.Delete

End Sub

刚看了一下 你的是 使用的段落边框 那么用如下代码 可以一次性删除……

Sub test()

On Error Resume Next

n = ActiveDocument.Paragraphs.Count

For i = 1 To n

j = ActiveDocument.Paragraphs(i).Borders.Count

If j = 4 Then ActiveDocument.Paragraphs(i).Range.Delete

Next

End Sub