可以用宏来批量删除：Sub DelFra() Dim Fra As Frame For Each Fra In ActiveDocument.Content.Frames Fra.Delete NextEnd Sub
