Add quotes around selected text

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

kiwichico - 25 Nov 2003 01:50 GMT

Hi all, does anyone know whether it is possible to add quotes around
selected block of text by pressing a macro.
Thanks in advance,
Kiwichic

Reply to this Message

Greg Maxey - 25 Nov 2003 02:23 GMT

Kiwichico,

Apply this macro:

Sub QuoteSelection()
If Selection.End - Selection.Start = 0 Then Exit Sub
Selection.InsertBefore Chr$(34)
If Selection.Characters.Last.Text = " " Then _
Selection.MoveEnd wdCharacter, -1
Selection.InsertAfter Chr$(34)
Selection.Collapse wdCollapseEnd

End Sub

Signature

Greg Maxey
A peer in "peer to peer" support
Rockledge, FL
To e-mail, first edit out the "w...spam" in the displayed address.

> Hi all, does anyone know whether it is possible to add quotes around a
> selected block of text by pressing a macro.
[quoted text clipped - 5 lines]
> ~~View and post usenet messages directly from
> http://www.ExcelForum.com/

Reply to this Message