Results 1 to 6 of 6
  1. #1
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Atlanta
    Posts
    568
    Thanks
    7
    Thanked 1 Time in 1 Post

    Mass Delete Text Boxes? (XP)

    I am updating a large set of slides where every one has two text boxes at the bottom with copyright information. I want to delete these from literally hundreds of slides. They are NOT part of a master slide. Is there a way to do this other than one-at-a-time deleting them? (I sure hope so.)
    Ronny Richardson

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Mass Delete Text Boxes? (XP)

    I'm afraid you'll have to delete them in each slide, unless someone can come up with a smart macro.

  3. #3
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Mass Delete Text Boxes? (XP)

    Hi Ronny

    How about 'Edit' - 'Replace' (or Control+H) copy and paste the text you want removed and then click 'Replace All', I just made a blank 20 page presentation and copied and pasted some dummy text into all of them and doing as I have descibed removed it all in one go.

    Cheers

    Steve

    Editted to correct typo
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  4. #4
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Atlanta
    Posts
    568
    Thanks
    7
    Thanked 1 Time in 1 Post

    Re: Mass Delete Text Boxes? (XP)

    I considered that but it has two problems: It leaves the blank text boxes behind and some of the text in the text boxes appears on some of the slides so I would end up deleting things I want to keep.
    Ronny Richardson

  5. #5
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: Mass Delete Text Boxes? (XP)

    Try this Macro
    <code>
    Sub DelTextBoxes(strCompare As String)

    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
    If shp.HasTextFrame Then
    If shp.TextFrame.TextRange.Text = strCompare Then
    shp.Delete
    End If
    End If
    Next shp
    Next sld
    End Sub
    </code>

    Call it with a macro like this
    <code>
    Sub TestIt()
    DelTextBoxes "This is the copyright text"
    End Sub
    </code>

    StuartR

  6. #6
    4 Star Lounger
    Join Date
    Jan 2001
    Location
    Atlanta
    Posts
    568
    Thanks
    7
    Thanked 1 Time in 1 Post

    Re: Mass Delete Text Boxes? (XP)

    This is a fantastic and easy-to-use solution. It took about a minute to paste it into one of the presentations and change the text and run it. The others should be just as quick. Thank you very much.
    Ronny Richardson

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •