请问怎样用代码添加删除word中表的行列呢？谢谢！！！！

aa=CREATEOBJECT("word.application")
aa.Documents(1).Tables(1).Columns(1).Delete
aa.Documents(1).Tables(1).Columns.Add

人气好旺的论坛。谢谢您的帮助。我现在正在学pb9.0请问有没有像这样好的论坛。