macro for PasteSpecial Unformatted

[Beth Mc]

I've tried to create a macro for paste-special -- unformatted. I used the
"record new macro" option, but this is what my macro looks like. What do I
need to put instead of "(wdPasteDefault)"?

Sub UnformattedPaste()
'
' UnformattedPaste Macro
'
Selection.PasteAndFormat (wdPasteDefault)
End Sub

 

[Anne Troy]

Try this, Beth:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=18

*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com

 

[Jay Freedman]

I've tried to create a macro for paste-special -- unformatted. I used
the "record new macro" option, but this is what my macro looks like.
What do I need to put instead of "(wdPasteDefault)"?

Sub UnformattedPaste()
'
' UnformattedPaste Macro
'
Selection.PasteAndFormat (wdPasteDefault)
End Sub

This is one of several situations where the recorder gets it completely
wrong. It isn't just the wdPasteDefault that's wrong, but PasteAndFormat is
the wrong method. Replace the whole line with this:

Selection.PasteSpecial DataType:=wdPasteText

 

[Beth Mc]

Anne:
Thanks! I just found that one, but it didn't work for me. I'm not sure why?
BUT I did find this other one and it works perfectly!!

Sub PasteUnformatted()
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText

End Sub

from http://www.latext.com/pm/comments/P1107_0_1_0

Thanks! Have a great day!
Beth

Try this, Beth:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=18

*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com

 

[Anne Troy]

LOL, Beth. That's the exact one I pointed you to.

*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com

Anne:
Thanks! I just found that one, but it didn't work for me. I'm not sure why?
BUT I did find this other one and it works perfectly!!

Sub PasteUnformatted()
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText

End Sub

from http://www.latext.com/pm/comments/P1107_0_1_0

Thanks! Have a great day!
Beth

 

[kafkaroo]

I've tried to create a macro for paste-special -- unformatted. I used the
"record new macro" option, but this is what my macro looks like. What do I
need to put instead of "(wdPasteDefault)"?

Sub UnformattedPaste()
'
' UnformattedPaste Macro
'
Selection.PasteAndFormat (wdPasteDefault)
End Sub

--
Thanks,
Beth

This is only eight years old and I just did something that worked. Instead of [Selection.PasteAndFormat (wdPasteDefault)], try [Selection.PasteAndFormat (wdFormatPlainText)].