Convert all Frames to Text

stky · #1 12-05-2021, 04:49 AM

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

gmayor · #2 12-05-2021, 06:41 AM

You don't need to count the frames. If there are no frames there is nothing to loop thus either of the following will work.

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Keyline Frames	LesleyFromRicky	Publisher	0	09-29-2019 01:39 AM
I need to convert shaded text into highlighted text on about 80 different long documents. VBA macro?	AustinBrister	Word VBA	8	05-28-2015 02:42 PM
Frames, Frames, Frames: How to eliminate them but keep the text?	Dakota	Word	8	02-09-2014 01:07 AM
My plain text post got converted to rich text in a reply, how to convert it back?	david.karr	Outlook	0	01-05-2012 09:46 AM
asp and frames HELP	fatooma	Misc	0	04-04-2006 01:04 PM