View Single Post
 
Old 07-08-2022, 09:59 AM
jeffreybrown jeffreybrown is offline Windows 10 Office 2016
Expert
 
Join Date: Apr 2016
Posts: 673
jeffreybrown has a spectacular aura aboutjeffreybrown has a spectacular aura about
Default

Thanks Andrew. With the tweak of one line, this works great. It turns out there were 11 paragraph marks being added instead of only one needed. After adding the merge, all is good.

Code:
If Len(wdTable.Rows(i).Range.Cells(1).Range.Text) < 3 Then
   wdTable.Cell(Row:=i, Column:=1).Merge MergeTo:=wdTable.Cell(Row:=i, Column:=11)
   wdTable.Rows(i).ConvertToText Separator:=vbCr
End If
Reply With Quote