Results 1 to 11 of 11
  1. #1
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Chicago, Illinois, USA
    Posts
    177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Paste Unformat Macro (PPT 2k SR-2)

    I need to make a macro to do EDIT, PASTE SPECIAL, then UNFORMATTED TEXT. It pretends to record, but nothing gets recorded. Tried both mouse and keyboard. Grrrrr. This worked fine in Word. Help!
    <font color=blue>Eric A. Spanitz</font color=blue>
    Quality, Project, Management * Training * Consulting
    http://www.spanitz.com * http://www.synergest.com

  2. #2
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Warrington, Cheshire, England
    Posts
    712
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    <img src=/S/hmmn.gif border=0 alt=hmmn width=15 height=15> I get the same result (PPT2K SR-1, 9.0.3821)
    Wierd.
    I get the framework of the macro (sub...endsub) but no content.
    Can't help as to why, though.
    To get you going, you could copy the macro from word and paste it into the PPT macro while other loungers sort out why it won't record properly.
    Silverback

  3. #3
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Paste Unformat Macro (PPT 2k SR-2)

    It's even worse. There is no paste spacial in the PowerPoint object model! See <A target="_blank" HREF=http://support.microsoft.com/support/kb/articles/Q222/7/21.ASP>Q222721</A> for an ugly work around. HTH! --Sam
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  4. #4
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Chicago, Illinois, USA
    Posts
    177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    Tried that! <grin> The PPT de###### objected to every element of the macro. Where is this cross application consistency that MS promises....
    <font color=blue>Eric A. Spanitz</font color=blue>
    Quality, Project, Management * Training * Consulting
    http://www.spanitz.com * http://www.synergest.com

  5. #5
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Chicago, Illinois, USA
    Posts
    177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    OK. Thanks. Tried that, with both Word and PPT running (which is what I would always have going on to need the PasteSpecial, and their workaround doesn't work. I get a run error at DataType:=wdPasteEnhancedMetafile

    They have a comment in their code saying pasting of text doesn't work. ARG. That is the ONLY reason I would be doing this! Anyone have any cludge workarounds for this?

    I want to take Word text and copy it into a specific PPT slide, and take on the existing PPT slide formatting and fonts, etc. A simple paste forces an Arial Unicode font, which messes up a bunch of stuff down the road.
    <font color=blue>Eric A. Spanitz</font color=blue>
    Quality, Project, Management * Training * Consulting
    http://www.spanitz.com * http://www.synergest.com

  6. #6
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Paste Unformat Macro (PPT 2k SR-2)

    That's beyond ARG! Sorry I didn't notice "Text does not support pasting ." IEEEEE! <img src=/S/hairout.gif border=0 alt=hairout width=31 height=23> I'll try to figure out a workaround. Should be something like ??.InsertAfter=Clipboard.GetText(), but PowerPoint doesn't seem to know about the Clipboard object. I'll have to go to another (real) computer. Figures that MS wouldn't give us the fix that we really need.
    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  7. #7
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Chicago, Illinois, USA
    Posts
    177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    Oh pleasepleaseplease come up with a solution... I continue to mess around with it on my end, but PPT seems to be crippled in regards to VB. Hey, I would promote the heck out of the macro that you come up with as a marketing tool for you/your org.... <img src=/S/bow.gif border=0 alt=bow width=15 height=15>
    <font color=blue>Eric A. Spanitz</font color=blue>
    Quality, Project, Management * Training * Consulting
    http://www.spanitz.com * http://www.synergest.com

  8. #8
    Silver Lounger
    Join Date
    Mar 2001
    Location
    Springfield, Ohio, USA
    Posts
    2,136
    Thanks
    0
    Thanked 1 Time in 1 Post

    Re: Paste Unformat Macro (PPT 2k SR-2)

    This is a wee bit ugly (my daughter hates the error message), and it dosn't replace selected text, and it needs more error checking (what if a picture is on the clipboard), but here it is: I'll make it better tomorrow, so ask more questions if there is something that you don't like. -- Sam

    <pre>Option Explicit
    Sub pasteSpecialText()
    Dim tmpSlide As Slide
    Dim tmpBox As Shape
    If ActiveWindow.Selection.Type <> ppSelectionText Then
    MsgBox "Please activate the insertion point"
    Exit Sub
    End If
    Set tmpSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
    Set tmpBox = tmpSlide.Shapes.AddTextbox(msoTextOrientationHoriz ontal, 48, 36, 642, 36)
    tmpBox.TextFrame.TextRange.Paste
    ActiveWindow.Selection.TextRange.InsertAfter tmpBox.TextFrame.TextRange.Text
    tmpSlide.Delete
    Set tmpSlide = Nothing
    Set tmpBox = Nothing
    End Sub
    </pre>

    <font face="Comic Sans MS">Sam Barrett, CACI </font face=comic>
    <small>And the things that you have heard... commit these to faithful men who will be able to teach others also. 2 Timothy 2:2</small>

  9. #9
    2 Star Lounger
    Join Date
    Feb 2001
    Location
    Chicago, Illinois, USA
    Posts
    177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    Wow!!! Way cool. <img src=/S/cool.gif border=0 alt=cool width=15 height=15> It works perfectly. I was worried at first, because the less-than and the greater-than got translated in the e-mail version of your message into odd symbols, but the website version showed me what to change. Odd that you can't copy/paste off the website page (no line breaks carry over). Thanks muchly! Seriously, you should promote the darn thing...I can't imagine I'm the only person wanting this capability. <img src=/S/bravo.gif border=0 alt=bravo width=16 height=30>
    <font color=blue>Eric A. Spanitz</font color=blue>
    Quality, Project, Management * Training * Consulting
    http://www.spanitz.com * http://www.synergest.com

  10. #10
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Ohio, USA
    Posts
    163
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    RE: copy/paste; You're right.

    Work around: Copy from the web screen, open word pad, paste. Copy text from Word pad and paste into VBA screen.

  11. #11
    2 Star Lounger
    Join Date
    Apr 2002
    Location
    Houston, Tx, USA
    Posts
    121
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Paste Unformat Macro (PPT 2k SR-2)

    I'm another happy lounger who has benefited from this code! <img src=/S/bananas.gif border=0 alt=bananas width=33 height=35>

    (8/5/2004)

    SammyB is the man !!!!
    Guillermo

Posting Permissions

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