0

我正在使用 VBS 在 Outlook 中创建签名以推送给我们的用户。签名中有表格,因此我可以将徽标/用户信息与徽标顶部的标准文本并排放置。(原始表格代码在这里找到: http ://www.vbforums.com/showthread.php?526706-resolved-question-with-tables-in-vbscript-for-AD-signature )

下面是写入 doc 文件的代码片段。该代码成功地创建了两个列,并将我想要的任何信息放入其中。问题是,如果我在 table1 和 table2 的顶部输入一条水平线,则两个表之间存在间隙。我的问题是,您可以使用 vbs 控制文档的两个表格之间的差距吗?

objDoc.Tables.Add objRange, 1, 2
Set objTable = objDoc.Tables(1)

'** Logo column **
'Draw a horizontal line (This only draws it for this frame)
objSelection.InlineShapes.AddHorizontalLineStandard

objTable.Cell(1, 1).select
'Put Logo information here

'** User column **
'Draw a horizontal line (This only draws it for this frame)
objSelection.InlineShapes.AddHorizontalLineStandard

objTable.Cell(1, 2).select
'Put User information here

objSelection.EndKey 6  'Command to end the above tables
4

2 回答 2

0

手动创建 Word 文档时,我永远无法触摸到线条。但是,我实际上已经完全避免了上述问题,从而回答了我自己的问题。我在表格上方添加了一条线。

链接:使用 VBS 在 MSWord 表格上方添加文本

于 2012-10-24T12:01:36.690 回答
0

这段代码实际上是 VBA,其中的诀窍是用 word 记录一个宏,它只做你遇到的一件事,消除差距。因此,手动创建您的表格,找出消除差距的最佳方法,然后记录此操作。然后在生成的宏中查找使用的 vba 代码并将其插入到您的脚本中。如果可行,请在此处发布您的解决方案。成功。

于 2012-10-23T07:38:09.913 回答