[算表] 變更自訂頁尾的VBA

[home0303 (Blue night)]

軟體:EXCEL

版本:2010


一個工作表的版面設定假如已經有自訂頁尾(置中)

如果我想只更改一件事

那就是將自訂頁尾的"字型"    改成"Times New Roman"

請問要如何以VBA實現呢

原本自訂頁尾有可能是各種文字   或者是如&P、&N之類的變數

若是頁尾原本從無到有的話我可以錄製後加以修改成

.CenterFooter = _
        "&12&""Times New Roman,標準""第&""Times New Roman,標準""&P&""Times
New Roman,標準""頁，共&""Times New Roman,標準""&N&""Times New Roman,標準""頁"

可是針對已經存在的頁尾要修改他的格式   我就卡關了

請指教謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.71.62.20 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1571163493.A.984.html
→ soyoso: 可以用個變數=錄製後的字串(如內文"&12&""..."頁")
→ soyoso: 要改字型的話，取代replace，centerfooter=取代後的變數
→ soyoso: 如要針對已存在的頁尾的話，可以變數=.centerfooter取得
→ soyoso: 再去取代
→ home0303: 謝S大 但若不知道原本人家所用的字型 恐怕就也無法取代
→ home0303: 了是吧
→ soyoso: 如以變數=.centerfooter，再對變數來抓取字型名稱出現於該
→ soyoso: 字串內位置，如instr找到逗號(,)，往instrrev回找"，這為
→ soyoso: 字型名稱；或以split來取得。
→ home0303: 了解 謝謝S大