Microsoft Office Forums - View Single Post - [Solved] How to remove the last comma at the end of a table entry

macropod · 11-03-2016, 12:53 PM

In that case, you'll probably need a macro like:

Code:

Sub CommaCleanUp()
Dim Tbl As Table, Cll As Cell
Application.ScreenUpdating = False
For Each Tbl In ActiveDocument.Tables
  For Each Cll In Tbl.Range.Cells
    With Cll.Range
      If Len(.Text) > 2 Then
      Do While .Characters.Last.Previous = ","
        .Characters.Last.Previous.Delete
      Loop
      End If
    End With
  Next
Next
Application.ScreenUpdating = True
End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html