RE: Plain Text Paste Macro

["Lauren" <lt34 -at- csus -dot- edu>]

I dunno about Word 2003.  I recreate this macro on every computer that I
use.  Usually, it is short and uninvolved macro, but with Word 2003, it
seems to have drama.  Here is what shows up in my VB editor for the macro.
It works, but it's a lot of code for what it does.

Lauren
=============
Sub PastePlainText()
'
' PastePlainText Macro
' Paste as plain text.
'
    Selection.PasteAndFormat (wdPasteDefault)
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.5)
        .TabPosition = InchesToPoints(0.5)
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Symbol"
        End With
        .LinkedStyle = ""
    End With

End Sub

 

> -----Original Message-----
> From: techwr-l-bounces+lt34=csus -dot- edu -at- lists -dot- techwr-l -dot- com 
> [mailto:techwr-l-bounces+lt34=csus -dot- edu -at- lists -dot- techwr-l -dot- com] On 
> Behalf Of J. Paul Kent
> Sent: Friday, February 16, 2007 5:22 PM
> To: techwr-l -at- lists -dot- techwr-l -dot- com
> Subject: Plain Text Paste Macro
> 
> I recorded the following macro cuz I was trying to save a 
> keystroke or two.
> I very frequently copy text from somewhere and need to paste 
> it into a document as plain text. Generally I use Alt-E-S to 
> bring up the paste special dialog, but then I have to select 
> plain text to get it to insert without any formatting.
> 
> So I recorded myself doing that, but that last step didn't 
> seem to record.
> When I execute the macro, the text comes in with it's native 
> formatting.
> 
> Any suggestions?
> 
> Sub PastePlain()
> '
> ' PastePlain Macro
> ' Macro recorded 2/16/2007 by Paul Kent
> '
>     Selection.PasteAndFormat (wdPasteDefault) End Sub
> 
> Thanks in advance,
> J. Paul Kent
> 206-383-0539
> 206-508-1144
> 
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> 
> Create HTML or Microsoft Word content and convert to Help 
> file formats or printed documentation. Features include 
> single source authoring, team authoring, Web-based 
> technology, and PDF output. http://www.DocToHelp.com/TechwrlList
> 
> Now shipping: Help & Manual 4 with RoboHelp(r) import! 
> New editor, full Unicode support. Create help files, 
> web-based help and PDF in up to 106 languages with Help & 
> Manual: http://www.helpandmanual.com
> 
> ---
> You are currently subscribed to TECHWR-L as lt34 -at- csus -dot- edu -dot- 
> 
> To unsubscribe send a blank email to
> techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
> or visit 
> http://lists.techwr-l.com/mailman/options/techwr-l/lt34%40csus.edu
> 
> 
> To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com
> 
> Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
> http://www.techwr-l.com/techwhirl/ for more resources and info.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Create HTML or Microsoft Word content and convert to Help file formats or 
printed documentation. Features include single source authoring, team authoring,
Web-based technology, and PDF output. http://www.DocToHelp.com/TechwrlList

Now shipping: Help & Manual 4 with RoboHelp(r) import! New editor,
full Unicode support. Create help files, web-based help and PDF in up
to 106 languages with Help & Manual: http://www.helpandmanual.com

---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.