作者home0303 (Blue night)
看板Office
标题[算表] 变更自订页尾的VBA
时间Wed Oct 16 02:18:11 2019
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1571163493.A.984.html
1F:→ soyoso: 可以用个变数=录制後的字串(如内文"&12&""..."页") 10/16 06:58
2F:→ soyoso: 要改字型的话,取代replace,centerfooter=取代後的变数 10/16 06:58
3F:→ soyoso: 如要针对已存在的页尾的话,可以变数=.centerfooter取得 10/16 06:59
4F:→ soyoso: 再去取代 10/16 07:00
5F:→ home0303: 谢S大 但若不知道原本人家所用的字型 恐怕就也无法取代 10/16 16:33
6F:→ home0303: 了是吧 10/16 16:33
7F:→ soyoso: 如以变数=.centerfooter,再对变数来抓取字型名称出现於该 10/16 17:03
8F:→ soyoso: 字串内位置,如instr找到逗号(,),往instrrev回找",这为 10/16 17:03
9F:→ soyoso: 字型名称;或以split来取得。 10/16 17:03
10F:→ home0303: 了解 谢谢S大 10/17 09:47