Macro to reverse a test string

[Jennifer Murphy]

I wrote this little macro to reverse a text string. I have 2 questions:

1. How can get the macro to leave the selection selected?
2. Does anyone have any comments on the code? Is there a better way?

Sub MyRevText()
Dim oRange As Range
Dim sString As String

Set oRange = Selection.Range
sString = oRange.Text
sString = StrReverse(sString)
oRange.Text = sString

End Sub

[gmaxey]

Sub MyRevText()
Dim oRng As Range
Set oRng = Selection.Range
oRng.Text = StrReverse(oRng.Text)
oRng.Select
End Sub

[Jennifer Murphy]

Thank you, that works perfectly.

I wasn't sure if I needed the variable oString.

Is there some reason that you changed my variable name from oRange to oRng?

I just noticed another little problem. The entire reversed string gets assigned the formatting of the first character in the original string.

If my original string is "This is some text", the reversed string becomes "txet emos si sihT". Is there a way to preserve the formatting so that the result is "txet emos si sihT"?

[gmaxey]

You're welcome.

I'm an old dog that likes to use the same hydrant. It's just my style.

I don't know an answer to the issue with formatting. Sorry.

[Jennifer Murphy]

Originally Posted by gmaxey

You're welcome.

I'm an old dog that likes to use the same hydrant. It's just my style.

I don't know an answer to the issue with formatting. Sorry.

Yuck! That's an image I'll have to try to get out of my head. That must be one disgusting hydrant. Pity the poor firemen if there's ever a fire near there. Gross! (Pretty funny line, though.)

I bet if I did it in a loop where I built up a new string character by character, it would preserve the formatting. That's more work than it's worth for what I need.

[gmaxey]

Never considered the image that quip might conjure

This might work:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim oRngBefore As Word.Range
Dim i As Long
Dim bMove As Boolean
Set oRng = Selection.Range.Duplicate
Set oRngBefore = oRng.Duplicate
oRngBefore.Collapse wdCollapseStart
bMove = True
For i = 1 To oRng.Characters.Count
  oRng.Characters(i).Copy
  oRngBefore.Paste
  If bMove Then
    oRng.MoveStart wdCharacter, 1
    bMove = False
  End If
  oRngBefore.Collapse wdCollapseStart
Next
oRng.Delete
End Sub