#1
|
||||
|
||||
Macro to reverse a test string
I wrote this little macro to reverse a text string. I have 2 questions:
Code:
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 |
#2
|
|||
|
|||
Code:
Sub MyRevText() Dim oRng As Range Set oRng = Selection.Range oRng.Text = StrReverse(oRng.Text) oRng.Select End Sub |
#3
|
||||
|
||||
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"? |
#4
|
|||
|
|||
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. |
#5
|
||||
|
||||
Quote:
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. |
#6
|
|||
|
|||
Never considered the image that quip might conjure
This might work: Code:
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 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Way to search for a string in text file, pull out everything until another string? | omahadivision | Excel Programming | 12 | 11-23-2013 12:10 PM |
Macro to create new word doc and save the file using String found in the document | VBNation | Word VBA | 2 | 02-08-2013 07:14 AM |
Call Macro from Input Box String | Paulsh | Word VBA | 1 | 11-01-2011 03:15 AM |
Macro VBA "Save as" with bookmarks in file name string | Dom37 | Word VBA | 2 | 10-31-2011 03:28 AM |
Macro or Function to know wether a string is included in a text | Eduardo | Word VBA | 5 | 06-15-2009 01:55 AM |