请教关于word制表的问题谢谢

Question

Dim strSp() As String = Split("aaa\001\1\无\bbb\002\2\无\ccc\003\3\无\ddd\004\4\无\eee\005\5\无\fff\006\6\无", "\") 
Dim Ls As Short
For Ls = 0 To strSp.GetUpperBound(0) 
ListBox1.Items.Add(strSp(Ls))
Next
我想把上面攫取出来的数字制成一个word表格，请问怎么做谢谢了。表格方式如下图：

Answer 1

先做好一个空的Word模板文件，然后每次用的时候拷贝一份，切分字符串后将你要的数据插入到表格中。可以参考：
http://topic.csdn.net/t/20050816/21/4212723.html
http://topic.csdn.net/t/20020326/11/600395.html