在word里用vba编写一个按钮程序,目的是全文查找指定文字然后将该...
Sub setPageFont() Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" '页眉左设置为:空 .CenterHeader = "&F" '页眉中设置为:文件名 .RightHeader = "" '页眉右设置为:空 .LeftFooter = "&B 机密 &B" '页脚左设置为:加粗的 机密两个字 .CenterFooter = "&D" '页脚中设置为:当前日期 .RightFooter = " 第 &P 页" '页脚右设置为:页码 End With Application.PrintCommunication = TrueEnd Sub
word vba 用正则表达式查找文字,不改内容只换字体
用vba是可以实现的,但是过程比较复杂。
准备工作:将需要“隐藏”的内容全部设置为白色,这样在正常视图下就达到“不可见”的效果。
然后再通过vba实现如下效果:选取文档中的任何内容时(即非光标可见状态),将选区赋值给Range变量,并将Range颜色设置为黑色,这样选区内容就转为“可见”状态,移开光标(即光标可见、无选区),将上一个Range颜色恢复为白色,选区再次隐藏。
原理就是这样。
转载请注明出处51数据库 » vba word 字体改红