在VbsEdit软件编程界面,将以下代码复制粘贴到VbsEdit编纂器中。
Dim wdSet wd = CreateObject("Kwps.application")wd.visible = TrueSet dc = wd.activedocumentIf dc.TablesOfContents.count <> 0 Then dc.TablesOfContents(1).Update dc.Fields(1).Select With wd.Selection .Font.Size = 10.5 .Font.Color = col2 .Font.Bold = false .ParagraphFormat.LineSpacingRule = wdLineSpace1pt5 End WithEnd If
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!