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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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	10	02-09-2014 02:40 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