Microsoft Office Forums - View Single Post - [Solved] Search and replace ends of sentences in tables

macropod · 06-09-2020, 03:50 AM

The macro in post #2 assumes each cell has only one paragraph of at least two words. If that's not how your tables are formatted, you'll need to provide more details.

As for the table formats:

Code:

Sub SetColumnWidths2()
Dim t As Table
For Each t In ActiveDocument.Tables
  t.Columns.DistributeWidth
  t.Columns(1).Width = CentimetersToPoints(3.75)
  t.Columns(2).Width = CentimetersToPoints(12)
Next t
End Sub