deleting all frames

M

M. Lesaar

Hello,

I need help deleting all frames in one document which are at the top of
approx. 700 pages. What can I do?

Thanks fór your help.

Bye.

Marcel
 
G

Greg Maxey

Marcel,

Try something like:

Sub ScratchMacro()
Dim oFrame As Frame
Dim rngStory As Word.Range
For Each rngStory In ActiveDocument.StoryRanges
Do
For Each oFrame In rngStory.Frames
oFrame.Delete
Next oFrame
Set rngStory = rngStory.NextStoryRange
Loop Until rngStory Is Nothing
Next

End Sub
 
M

M. Lesaar

Hello,

thansk for your help. Unfortunately it did not work. Do I have to edit the
makro in some way?

Marcel
 
Top