怎么用VBS自动更新WPS文档目录

怎么用VBS自动更新WPS文档目录

在VbsEdit软件编程界面，将以下代码复制粘贴到VbsEdit编辑器中。

Dim wdSet wd = CreateObject("Kwps.application")wd.visible = TrueSet dc = wd.activedocumentIf dc.TablesOfContents.count <> 0 Thendc.TablesOfContents(1).Updatedc.Fields(1).SelectWith wd.Selection .Font.Size = 10.5 .Font.Color = col2 .Font.Bold = false .ParagraphFormat.LineSpacingRule = wdLineSpace1pt5End WithEnd If