Sub RemoveAllFramesInDoc1()
Dim objFrame As Frame
    Application.ScreenUpdating = False
    If ActiveDocument.Frames.Count = 0 Then Exit Sub 'optional
    For Each objFrame In ActiveDocument.Frames
        objFrame.Delete
    Next objFrame
    Application.ScreenUpdating = True
    Set objFrame = Nothing
End Sub


Sub RemoveAllFramesInDoc2()
Dim objFrame As Frame
Dim nFrame As Long, i As Long
    Application.ScreenUpdating = False
    nFrame = ActiveDocument.Frames.Count
    'If nFrame = 0 Then Exit Sub 'optional
    For i = nFrame To 1 Step -1
        Set objFrame = ActiveDocument.Frames(i)
        objFrame.Delete
    Next i
    Application.ScreenUpdating = True
    Set objFrame = Nothing
End Sub