Microsoft Office Forums - View Single Post - [Solved] Wish to delete letters to the right of the cursor in a Table cell, but whole cell is being deleted

macropod · 09-24-2018, 03:51 PM

The problem with what you recorded is that you simply keep deleting characters until you've deleted 17 of them. What you should have recorded is:

Code:

Sub Macro1()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = "#"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute
  Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
  Selection.Delete
End Sub

The line:
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
is what you get via Ctrl-Shift-RightArrow, which doesn't require you to know how many characters there are and, moreover, spans everything until the end of the line.