“ HMI </跨度> Sheet9.Range( “A4”)。复制 .PasteExcelTable False,False,False Sheet9.Shapes( “Group_Htr”)。复制 。特殊粘贴 .ShapeRange(1).WrapFormat.Type = wdWrapInline .EndKey单位
你得到错误的原因是因为 InchesToPoints 不是Excel的一部分,这是代码运行的地方。此方法特定于Word,因此需要引用Word.Application。放一个 . 在每次出现之前让它捡起来 WordApp 来自 With :
InchesToPoints
.
WordApp
With
WordDoc.Tables(1).Columns(1).Width = .InchesToPoints(1.5)