Wish to delete letters to the right of the cursor in a Table cell, but whole cell is being deleted

macropod · #9 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
cell alignment gets deleted when using backspace in a cell	saandahn	Word Tables	4	01-08-2018 09:27 AM
How to delete unused cell remaining at end of a block of deleted data	SKEETER	Excel	2	10-24-2017 07:06 AM
How can I delete spaces & lines in a table cell	mrayncrental	Word VBA	3	10-20-2014 07:09 PM
Delete table if cell has data	So New2 This	Word VBA	1	05-06-2013 09:00 PM
How can I delete the content of a cell in column if the cell value is more than 1000?	Learner7	Excel	2	06-27-2011 05:44 AM