Microsoft Office Forums - View Single Post - [Solved] Delete Character on Single Line Only

Tye30 · 04-17-2017, 01:48 PM

Hello All,

I have made several macros using the Macro Recorded language and I am looking for help to learn and update my macros to a more efficient style, mainly to speed up the macros.

Code:

 
 Sub TEST_REVISE()
 
    Selection.HomeKey Unit:=wdLine:
    Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend:
    Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=1:
    Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend:
    Selection.TypeText Text:="R":
    Selection.MoveRight Unit:=wdCharacter, Count:=8: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=15: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=7: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=6: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=15: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=7: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=6: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=4: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=4: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=3: Selection.TypeBackspace
    Selection.MoveRight Unit:=wdCharacter, Count:=7: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=13: Selection.TypeBackspace:
    Selection.MoveRight Unit:=wdCharacter, Count:=16: Selection.TypeBackspace:
    Selection.MoveDown Unit:=wdLine, Count:=1:
    Selection.HomeKey Unit:=wdLine
End Sub

I need it to
1. Delete all instances of this character "|" on the line
2. Add the character "R" after the "Z"
3. Delete the whitespace or collapse the text down to the beginning of the line

Example Before:

----|Z| | 1111 |2222222 22|3333 |44444|55555 5|6666 |77777|A |BBB| |CCC | | 111A1111-1111 |

Example After:

ZR 1111 2222222 223333 4444455555 56666 77777A BBB CCC 111A1111-1111

- is for character count of 4 of whitespace

Any help would be greatly appreciated! When running this macro for 1000+ lines it can take a while.

Enjoy,

Tyler