Hi,

The above code is fully operational; however, I would like to apply these macros to all tables in a document; can we update this code to apply to all tables in a document?
If feasible, modify the one above....

Your help is highly appreciated.

I had tried the below one.. but not working..

For Each tbl In ActiveDocument.Tables
For Each cell In tbl.Range.Cells
Set rng = cell.Range
rng.Start = rng.Start + InStr(1, rng.Text, "") - 1
rng.Delete
Next cell
Next tbl