给出以下代码:
Set Word = CreateObject("Word.Application")
Set Edit = Word.Selection
Edit.style = "Heading 1"
我想使此代码独立于语言,并且提供了一个名为的枚举WdBuiltinStyle
:
但是AFAIK VBScript没有枚举,因此失败:
Set Word = CreateObject("Word.Application")
Set Edit = Word.Selection
Edit.style = WdBuiltinStyle.wdStyleHeading1
我可以看一下第一个链接的价值上wdStyleHeading1
是-2
,所以这个作品:
Set Word = CreateObject("Word.Application")
Set Edit = Word.Selection
Edit.style = -2
所以问题是:
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句