01
🤖 Agent 执行
底层架构:多级列表与样式绑定
Agent 目标:生成 VBA 宏代码,一键解决最繁琐的「1.1、1.1.1」多级列表与标题 1/2/3 的绑定,并设置基础中英文字体。
Agent 生成指令(复制此代码到 WPS/Word 的 VBA 编辑器运行):
Sub SetupThesisStyles()
'绑定多级列表到标题
With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = "%1."
.LinkedStyle = "标题 1"
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
.NumberFormat = "%1.%2."
.LinkedStyle = "标题 2"
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
.NumberFormat = "%1.%2.%3."
.LinkedStyle = "标题 3"
End With
'设置中英文字体
With ActiveDocument.Styles("标题 1").Font
.NameFarEast = "黑体" '中文
.NameAscii = "Times New Roman" '英文
.Size = 16 '三号
End With
MsgBox "基础架构搭建完成!"
End Sub
注:由于 VBA 操作 WPS/Word 列表的兼容性,若代码报错,Agent 也可通过生成 XML 模板文件供人类导入。