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-23-2018, 03:46 PM

You could use a macro like:

Code:

Sub Demo()
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
    Do While .Find.Found = True
      If .InRange(Rng) = False Then Exit Do
      .MoveEnd Unit:=wdCell, Count:=1
      .Text = vbNullString
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End With
Application.ScreenUpdating = True
End Sub

Note: There is no difference between a macro and VBA. When recorded, macros use VBA. You wouldn't be able to record the above macro, however. The above macro assumes only the first table in the document is to be processed.