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)