VBA将列添加到具有混合宽度的MS Word表

Question

我正在尝试创建一个脚本来在MS Word表的左侧添加一列。 这些表已经在具有混合宽度的现有文档中，因此Me.Tables.Item(1).Columns.Add(BeforeColumn:=Me.Tables.Item(1).Columns(1))方法将不起作用。 我在做研究时确实看到我可能要从单元格选择中插入它。（就像大多数事情我丢失了对页面的引用而无法再找到） 任何人都可以为我指出一个好的资源或以任何方式帮助我吗？

Answer 1

我通过选择一个单元格并使用

解决了这个问题

Selection.InsertColumns

非常感谢

Answer 2

尝试以下语法：

Dim mDoc As Document
Set mDoc = ActiveDocument
Dim Tbl1 As Table
Set Tbl1 = mDoc.Tables(1)

Tbl1.Columns.Add BeforeColumn:=Tbl1.Columns(1)