如何快速地把Word文字转化为表格，使每个表格正好能容纳两个字

jujujuju

假如




设想

希望找出简洁的替换插入方法，或其他不复杂的都行。

pipiludaxian

1、先添加表格。
2、再用鼠标选中需要往表格中添加的文字内容。
3、然后运行以下代码。
Sub test()
Dim tb As Table
Dim cel As Cell
Dim i As Integer
For Each tb In ActiveDocument.Tables
    i = 1
    For Each cel In tb.Range.Cells
        cel.Range.Text = Mid(Trim(Selection), i, 2)
        i = i + 2
    Next cel
Next tb
End Sub

jujujuju

真心不错，谢谢坛友，如果想每隔两个QQ之间加入一个逗号的话，怎么做呢？