[求助]VBA编程：怎样在WORD中给一个表格中间添加一列？

djg

以下是我编程的内容：

Set word = CreateObject("word.application") Set mydoc = word.Documents.Open("c:\mydoc.doc") mydoc.Tables(1).Columns(3).InsertColumns

以上这种方法提示错误，只能用mydoc.Tables(1).Columns.Add，而这种方法只能在最后添加一列，而我需要在中间添加。

我查找一些资料InsertColumns只能是selection的对象，还有什么解决办法吗？

守柔

两种方法,一种是你说的方法,但先选定列.

第二种方法如下:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-2 09:20:06 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-NewMacros]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim WdApp As Word.Application, MyDoc As Word.Document, MyTable As Word.Table Set WdApp = CreateObject("Word.Application") Set MyDoc = WdApp.Documents.Open("c:\mydoc.doc") Set MyTable = MyDoc.Tables(1) '在指定表格的第二列之前插入一列 MyTable.Columns.Add beforecolumn:=MyTable.Columns(2) End Sub '----------------------

djg

谢谢版主！