暗淡？arr()
設置？fontlist？=?申請。CommandBars(“格式化”)。FindControl(ID:=1728)
為了什麽？我？=?1?去哪？字體列表。列表計數
如果？Asc(左(fontlist。列表(壹)，？1))?& lt？0?然後
n？=?n？+?1
雷迪姆？保存？arr(1？去哪？n)
arr(n)？=?字體列表。列表(壹)
結束？如果
然後
答？=?ActiveDocumentbuildingdocumentproperties(wdPropertyWords)
為了什麽？n？=?0?去哪？a
選擇。開始？=?n
選擇。結束？=?n？+?1
選擇。字體。名字？=?arr(Int((UBound(arr)？-?1?+?1)?*?Rnd？+?1))
然後
結束？潛水艇