如何将Word单元格拆分为回车标记的行

Question

如何使用vba将包含段落的Word单元格拆分成行？

Answer 1

如"自由流动；我在Word中录制了这个宏。但是，我在桌子外面做了，然后在缩进的单元格里使用，效果很好。

Selection.ConvertToTable _
Separator:=wdSeparateByParagraphs, NumColumns:=1, _
NumRows:=15, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
.Style = "Table Grid"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
End With