\u4ee5\u4e0bVBA\u4ee3\u78bc\u53ef\u4f7f\u6bcf\u500b\u8868\u683c\u53ca\u5176\u6a19\u984c\u6392\u5728\u540c\u4e00\u9801\u3002\u6211\u5011\u5047\u8a2d\u8868\u683c\u6a19\u984c\u4f4d\u65bc\u8868\u683c\u7684\u4e0a\u4e00\u6bb5\u3002<\/p>\n\n\n\n
Sub KeepRowsTogether()\nDim para As Paragraph, currCell As Cell, tabIdx As Integer\ntabIdx = 0\nFor Each para In ActiveDocument.Paragraphs\n If para.Range.Tables.Count > 0 Then\n If ActiveDocument.Range(0, para.Range.End).Tables.Count <> tabIdx Then\n para.Previous(1).KeepWithNext = True\n With para.Range.Tables(1)\n .Range.Paragraphs.KeepWithNext = True\n If .Uniform = True Then ' No cell merged vertically\n For Each currCell In .Rows.Last.Range.Cells ' Just set last row to false\n currCell.Range.Paragraphs.Last.KeepWithNext = False\n Next currCell\n Else ' Else start from the last cell (bottom right)\n Set currCell = .Range.Cells(.Range.Cells.Count)\n Do While currCell.ColumnIndex > 1 ' Set all cell to false until the first column\n currCell.Range.Paragraphs.Last.KeepWithNext = False\n Set currCell = currCell.Previous\n Loop\n currCell.Range.Paragraphs.Last.KeepWithNext = False ' Set first column, last row to false\n ' ___________\n ' |___|___|___|\n ' | |___|___|\n ' | x |___|___|\n ' |___|_x_|_x_|\n ' <----------\n End If\n End With\n tabIdx = tabIdx + 1\n End If\n End If\nNext para\nEnd Sub<\/code><\/pre>\n\n\n\n