a guest Jul 12th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. `If found Then
  2.     Selection.HomeKey Unit:=wdLine
  3.     If IsNumeric(Selection.Characters(2) = True) Then
  4.        Selection.Delete Unit:=wdCharacter, Count:=3
  5.        Selection.MoveStart wdParagraph, 1
  6.     ElseIf IsNumeric(Selection.Characters(1) = True) Then
  7.        Selection.Delete Unit:=wdCharacter, Count:=2
  8.        Selection.MoveStart wdParagraph, 1
  9.     Else
  10.        Selection.MoveStart wdParagraph, 1
  11.     End If
  12.  End If`
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand