Originally Posted by
Logit
Not certain this will work but try "merge across" instead of "merge".
The Cell(s) in question are already merged "row-wise". Sorry, had to mentioned it earlier.
Originally Posted by
Logit
However, the best approach is to never utilize any 'merging' at all. It will always, at some point, get you in trouble. Truly.
Well, yes. I could do that. But it also means throwing away a big bunch of work (solving this particular problem not included). I would like to try a few things, before redesign the table structure and work around thereby a MS Word shortcoming.
Originally Posted by
macropod
If your table has 'around' text wrapping, revert to 'none'.
Since I could not find such a property for the table object, but for rows, I guess you mean it that way. If not, correct me please.
Row-Setting is
Table.Rows.WrapAroundText = False ' (or '0')
Originally Posted by
macropod
Additionally, use :
• 'keep together' paragraph formatting on all paragraphs in the merged cells; and
• 'keep with next' paragraph formatting on all paragraphs except the last in the merged cells.
I've tried it. But no luck. The behavior does not change
For i = startRow To endRow
tbl.Cell(i, 2).Merge MergeTo:=tbl.Cell(i + 1, 2)
If endRow - i >= 4 Then ' do it for all, but the last
tbl.Cell(i, 2).Range.ParagraphFormat.KeepTogether = True
tbl.Cell(i, 2).Range.ParagraphFormat.KeepWithNext = True
End If
i = i + 1
Next i
I will experiment with some other ideas. Maybe I find something that keeps my current structure and looks still good. But I would still love to solve the display issue programmatically. And not with some hacky workarounds :-)