What's "Option+LeftArrow"? Must be a Mac thing. :-)
If you don't mind selecting what you want quoted (be it a word, phrase,
etc.), the following macro will put [smart] quotes around the selection:
Sub QuoteIt()
Selection.Copy
Selection.TypeText Text:=Chr$(147) + Chr$(148)
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
I have this assigned to Ctrl+Alt+", and use it frequently.
--
Herb Tyson MS MVP
Author of the Word 2007 Bible
Blog:
http://word2007bible.herbtyson.com
Web:
http://www.herbtyson.com
"CyberTaz" wrote in message
.. .
If you *never* have need to put the quotes around more than one word it
might be worth your while to have a macro with a keystroke assigned.
Otherwise you'd need a separate macro for a 2-word string, a 3-word
string,
etc. Why not try this - I find it just as convenient:
Start at the *right end* of the word/string type your " then hit
Option+LeftArrow as many times as necessary (once per word) & type your
closing ". [Note: Unfortunately doesn't work as well in the opposite
direction because it grabs the ending space.]
HTH |:)
Bob Jones
[MVP] Office:Mac
On 8/16/07 4:28 PM, in article
, "livetohike"
wrote:
Is there a way to quickly put double quotes around the current word?
I would like a macro that will look at the current insertion point,
and if it is a word insert quotes at the beginning and end of the word.