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

看板Office作者 (Blue night)時間4年前 (2019/10/16 02:18), 編輯推噓0(0推 0噓 10→)
留言10則, 2人參與, 4年前最新討論串1/1
軟體: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
→
10/16 06:58, 4年前 , 1F
可以用個變數=錄製後的字串(如內文"&12&""..."頁")
10/16 06:58, 1F
→
10/16 06:58, 4年前 , 2F
要改字型的話，取代replace，centerfooter=取代後的變數
10/16 06:58, 2F
→
10/16 06:59, 4年前 , 3F
如要針對已存在的頁尾的話，可以變數=.centerfooter取得
10/16 06:59, 3F
→
10/16 07:00, 4年前 , 4F
再去取代
10/16 07:00, 4F
→
10/16 16:33, 4年前 , 5F
謝S大 但若不知道原本人家所用的字型 恐怕就也無法取代
10/16 16:33, 5F
→
10/16 16:33, 4年前 , 6F
了是吧
10/16 16:33, 6F
→
10/16 17:03, 4年前 , 7F
如以變數=.centerfooter，再對變數來抓取字型名稱出現於該
10/16 17:03, 7F
→
10/16 17:03, 4年前 , 8F
字串內位置，如instr找到逗號(,)，往instrrev回找"，這為
10/16 17:03, 8F
→
10/16 17:03, 4年前 , 9F
字型名稱；或以split來取得。
10/16 17:03, 9F
→
10/17 09:47, 4年前 , 10F
了解 謝謝S大
10/17 09:47, 10F
‣ 更多 home0303 的文章
文章代碼(AID): #1TfWrbc4 (Office)