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 回答