Sub AddQuotes()
Dim sText As String
sText = Selection
'Use this line for straight quotes
Selection.TypeText (Chr(34) & sText & Chr(34))
'Use this line for smart quotes
'Selection.TypeText (Chr(147) & sText & Chr(148))
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Don B wrote:
> Is this already possible? If so, how? If not, it would be a handy
> feature.
>
> ----------------
> This post is a suggestion for Microsoft, and Microsoft responds to the
> suggestions with the most votes. To vote for this suggestion, click
> the "I Agree" button in the message pane. If you do not see the
> button, follow this link to open the suggestion in the Microsoft
> Web-based Newsreader and then click "I Agree" in the message pane.
>
> http://www.microsoft.com/office/community/en-us/default.mspx?mid=f9620e89-0d58-41d7-89b6-e271dda44557&dg=microsoft.public.word.docmanagement