Automation 如何使用vbscript自动调整Word文档中所有表格的内容

我有一个word文档，其中有几个表，其中有可变的列和行

我的目标是编写一个vbscript文件，根据上下文自动调整每个表

下面是我需要通过脚本启用的选项的图像

像这样的事情

去做这样的事

我当前的代码似乎不起作用：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
dim fpath
fpath="D:\tables.docx"
Set objDoc = objWord.Documents.Open(fpath)
For Each tbl In objDoc.Tables
    tbl.AutoFitBehavior(wdAutoFitContent)
Next
objDoc.Save
objWord.Quit

上面的代码对word文件没有影响，它只是打开并关闭文件。

---

请帮忙

Vbscript不知道单词常量，例如

wdAutoFitContent

。使用

选项explicit

获得此类问题的通知。您能否解释一下如何实现我想要实现的目标？您需要在代码中使用如下内容：

tbl.AutoFitBehavior（1）

，因为正如@GeertBellekens所说，Vbscript不知道单词常量，例如

wdAutoFitContent

。或者您可以使用值

1

自己定义

wdAutoFitContent

并使用它。@Flakes否，您应该定义它们并使用命名常量，即

Const wdAutoFitContent=1

。请不要提倡使用“神奇数字”。这是否回答了你的问题？