Copying and Pasting Styles

If you frequently use styles (which you should) to format your documents or specify text levels for typesetting, you're probably aware that you can press CTRL + SHIFT + S to activate the style list. (Then you can scroll through the list to get the style you need.)

You may not be aware, however, that you can easily copy and paste styles (both paragraph and character styles), just as you can copy and paste text. If you've never done this before, it will make you smile. Here's the procedure:

1. Put your cursor on some text formatted with the style you want to copy (Heading 1, for example).

2. Press CTRL + SHIFT + C (just like the keyboard shortcut for copying text, but with the SHIFT key added).

3. Move your cursor to (or select) the text you want to format with the style you just copied.

4. Press CTRL + SHIFT + V (just like the keyboard shortcut for pasting text, but with the SHIFT key added).

The text will be formatted with the style you copied.

_________________________________________

READERS WRITE

Jeff Ross sent the following macro to clean up text copied into Word from an email message. Thanks, Jeff!


Sub CleanMyMessage()
' CleanMyMessage Macro
' Macro recorded 3/11/02 by Jeff Ross
'Remove angle brackets with spaces
With Selection.Find
.Text = "> "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Remove other angle brackets
With Selection.Find
.Text = ">"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Remove spaces before paragraph breaks
With Selection.Find
.Text = " ^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Mark true paragraph breaks with unique character
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "?"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Replace other (false) paragraph breaks with spaces
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Replace unique character with paragraph break
With Selection.Find
.Text = "?"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Turn double hyphens to em dashes
With Selection.Find
.Text = "--"
.Replacement.Text = "^+"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Turn straight single quotation marks into curly ones
'Note: For this to work, the AutoFormat option
'to replace straight quotes with curly quotes must be on
'(Click Tools > AutoCorrect > AutoFormat As You Type >
'Replace as you type > straight quotes with smart quotes)
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "'"
.Replacement.Text = "'"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'Turn straight double quotation marks into curly ones
'Note: For this to work, the AutoFormat option
'to replace straight quotes with curly quotes must be on
'(Click Tools > AutoCorrect > AutoFormat As You Type >
'Replace as you type > straight quotes with smart quotes)
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

If you don't know how to use macros like this one, you can learn how here.

_________________________________________

RESOURCES

Dan A. Wilson, expert online editor and proprietor of The Editor's Desktop, provides several useful resources for editors, including:

* a basic FTP tutorial (if you need to transmit electronic manuscripts to clients)

* suggestions for choosing anti-virus software

* a discussion of freelancers' rates

* a recommended list of reference works (printed and electronic) for editors

* a low-tech guide to Wintel computer maintenance

* information about installing a firewall on your computer

You can read Dan's articles here:

http://www.editorsdesktop.com/articles.html

And you can check out his editing services here:

http://www.editorsdesktop.com/index.html

This entry was posted in Editing. Bookmark the permalink. Post a comment or leave a trackback: Trackback URL.

Post a Comment

You must be logged in to post a comment.

  • The Fine Print

    Thanks for reading Editorium Update (ISSN 1534-1283), published by:

    The EDITORIUM, LLC
    http://www.editorium.com

    Articles © on date of publication by the Editorium. All rights reserved. Editorium Update and Editorium are trademarks of the Editorium.

    You may forward copies of Editorium Update to others (but not charge for it) and print or store it for your personal use. Any other broadcast, publication, retransmission, copying, or storage, without written permission from the Editorium, is strictly prohibited. If you’re interested in reprinting one of our articles, please send an email message to editor@editorium.com

    Editorium Update is provided for informational purposes only and without a warranty of any kind, either express or implied, including but not limited to implied warranties of merchantability, fitness for a particular purpose, and freedom from infringement. The user (you) assumes the entire risk as to the accuracy and use of this document.

    The Editorium is not affiliated with Microsoft Corporation or any other entity.

    We do not sell, rent, or give our subscriber list to anyone. Period.

    If you’d like to subscribe, please enter your name and email address below. We publish the newsletter once a week, and on rare occasions we may send an important announcement. We never, ever send spam. Thank you for signing up!