谁有办法一下把所有表头和表格中间加换行符

谁有办法一下把所有表头和表格中间加换行符
表格太多了不想一个一个加了，求一段VB代码吧


加换行符之前的样子
表2-1           显示器大小与最大分辨率关系表
显示器大小        最大分辨率
14英寸        1024×768
15英寸        1280×1024
17英寸        1600×1280
21英寸        1600×1280

加换行符之后的样子

表2-1           显示器大小与最大分辨率关系表

显示器大小        最大分辨率
14英寸        1024×768
15英寸        1280×1024
17英寸        1600×1280
21英寸        1600×1280

[ 本帖最后由 fangxu 于 2011-3-28 10:02 编辑 ]

谁能出手帮帮忙~

Sub 试一试()
Dim q As Table
For Each q In ActiveDocument.Tables
q.Select
Selection.MoveStart unit:=wdCharacter, count:=-1
Selection.Range.InsertBefore Chr(13)
Next
End Sub

谢谢，效果达到好用。