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

vjvj123 · 09-23-2018, 08:04 PM

Thanks again.

Not sure if I am doing sth wrong, but get an error message in the 'If' statement that you provided as a replacement, my macro is like this now:

Code:

Sub Macro15()
Application.ScreenUpdating = False
Dim Rng As Range, i As Long
With ActiveDocument.Tables(1)
  Set Rng = .Range
  With .Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    If .Find.Found = True
      .MoveEnd Unit:=wdCell, Count:=1
      .Text = vbNullString
    End If
  End With
End With
Application.ScreenUpdating = True
End Sub