If the document contain 0 frames to skip otherwise need to convert frames. Is the code is correct.


Sub RemoveAllFramesInDoc()


Dim objFrame As Frame
Dim nFrame As Long

Application.ScreenUpdating = False

nFrame = ActiveDocument.Frames.Count


For Each objFrame In ActiveDocument.Frames
If nFrame = 0 Then
End If
objFrame.Delete
Next objFrame
Application.ScreenUpdating = True
End Sub