在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 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!