ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 13907933959

[求助] 将文件夹内多个文件中同一个或多个字符替换:字号、字体、字形、颜色

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-1-14 09:30 | 显示全部楼层
413191246se 发表于 2016-1-14 09:16
139:请提供附件。。。

师傅好!
见附件。

附件.rar

7.72 KB, 下载次数: 33

TA的精华主题

TA的得分主题

发表于 2016-1-14 10:25 | 显示全部楼层
139:辛苦了!——的确是能转换。因为各种中文字体除了能打出汉字字形外,都能打出数字和字母和标点符号,所以,要是把指定的数字和字母转换为中文字体,也是能转换的,但恐怕也不是全部能转换。——在Word默认空白文档中,如果不调出中文输入法,就是默认的 Times New Roman 字体,调出中文输入法后,就是全部是中文字体了。——最终,你有什么想法?

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-1-14 11:14 | 显示全部楼层
413191246se 发表于 2016-1-14 10:25
139:辛苦了!——的确是能转换。因为各种中文字体除了能打出汉字字形外,都能打出数字和字母和标点符号, ...

师傅好!
如果可能的活,把Times New Roman 和 Tahoma 这二种字体,可以互相转换宋体、仿宋、楷体、黑体…等字体。
师傅、5合一的宏也可以吗?如能真是太好了!

TA的精华主题

TA的得分主题

发表于 2016-1-15 09:47 | 显示全部楼层
5合1宏分两种:一是查找指定文字设置格式(如:黄芪那个宏);一是查找不确指的文字。但我不建议把数字、字数、标点符号等西文字符设置为中文字体,不美观。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-1-15 11:01 | 显示全部楼层
413191246se 发表于 2016-1-15 09:47
5合1宏分两种:一是查找指定文字设置格式(如:黄芪那个宏);一是查找不确指的文字。但我不建议把数字、字 ...

师傅好!
能不能2个5合一的宏里面Times New Roman 和 Tahoma 这二种字体,都把它修改成可以互相转换宋体、仿宋、楷体、黑体…等字体。因我也有一些身不由已,只能请师傅帮忙!

TA的精华主题

TA的得分主题

发表于 2016-12-12 20:58 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
13907933959 发表于 2015-12-21 10:39
师傅好!
昨天和今天早上病人比较多,比较忙,回复晚了请您见谅!


楼主,请问窗体/宏怎么使用。我新建word,打开VB后导入.frm文件,并插入模块把宏代码复制后运行宏,结果没有发生任何改变。不知道问题出在哪

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-12-13 07:28 | 显示全部楼层
本帖最后由 13907933959 于 2016-12-13 07:31 编辑
diqi1234 发表于 2016-12-12 20:58
楼主,请问窗体/宏怎么使用。我新建word,打开VB后导入.frm文件,并插入模块把宏代码复制后运行宏,结果 ...

网友好!

这个《循环遍历文件夹_字体格式宏》是我师傅413191246se帮我编写的,在下借花献佛,希望能帮到你!

导入该宏代码的方法:

先打开一个Word 文档,(关闭其它所有文档)。

1、点击文档内上面:工具→宏→宏→编辑→进入VBE 编程环境(或:同时按电脑键盘上的 Alt 和 F11键,直接进入VBE 编程环境)。

2、点击 VBE 左上角窗口(即:“工程资源管理器”的窗口)内最上面的“Normal”,再点击 VBE 上面左上角的“文件”,点击“导入文件”,找到存放在电脑D盘内的《循环遍历文件夹_字体格式宏》文件夹→打开,点击 FindText (窗体文件),再点击“打开”,然后,关闭 VBE。

导入该窗体的方法:
1、重新打开VBE 点击左上角窗口内,最上面的“Normal”,再点击“模块”下面的New Macros(如在左边的“工程资源管理器”的窗口内,没有看到“模块”和下面的New Macros的话,就随便录个宏,它就会出现了,(方法:随便打开一个文档,点上面的“工具”→“ 宏”→“ 宏”→“录制新宏”→点框内的“确定”→点小图标内下面小四方块“停止录制”),点鼠标右键→“查看代码”,会弹出代码窗口)。再到电脑D盘内找到《循环遍历文件夹_字体格式宏》文件夹→打开“循环遍历文件夹_字体格式宏”这个文件,把里面的宏代码,复制粘贴到弹出的窗口内,然后,关闭 VBE,再关闭 Word。

2、重新打开 Word文档(打开例文),—— 注意:此时,只须按电脑键盘上的 F4 键,就可启动窗体了,(以后可以反复按电脑键盘上的 F4 启动该窗体),或将《循环遍历文件夹_字体格式宏》,设置一个快捷按钮到Word文档内,上面的工具栏中。

方法如下:
打开Word文档,依次单击文档内、上面的“工具”→“宏”→“自定义”出来的自定义对话窗口,选择“命令(C)”,在左边窗口内找到一个单独的“宏”字,用鼠标左键点一下它 → 再在右边“命令(D)”窗口内,找到你添加的宏(“Normal New Macros Macro1查找文字集成版”)。用鼠标左键点一下它,再用鼠标左键拖动它,将其拖至文档上面,工具栏中的合适位置(工具一栏中的那个位置都可以,其作用只是为了方便以后使用的一个按钮的位置),注意,这时不要关闭“自定义”对话框。右击刚刚拖到工具栏上的“Normal New Macros Macro1循环遍历文件夹_字体格式宏”,在弹出的快捷菜单中,选择“命名(N)”,并将“命名”后面框中的“Normal.New Macros Macro1”删除,再取一个什么名来作为工具按钮的名称(也可以用其它的任何名称、图标、符号、数字)。然后关闭“自定义”对话框窗口即可。

3、该窗体可以拖动到屏幕的任意位置,再点击文档可以编辑,然后再执行窗体。

移除导入宏代码的方法:

先打开一个Word 文档,(关闭其它所有文档)。

1、点击文档内上面:工具→宏→宏→编辑→进入VBE 编程环境(或:同时按电脑键盘上的 Alt 和 F11键,直接进入VBE 编程环境)。

2、点击左上角窗口内的 Normal,点击 FindText (窗体文件),再点鼠标右键→移除FindText →会弹出一个询问框,点“不导出”。

移除导入窗体的方法:
打开VBE 点击左上角窗口内,最上面的“Normal”, 再点击“模块”下面的New Macros,点鼠标右键→“查看代码”,会弹出代码窗口,就可删除
代码

TA的精华主题

TA的得分主题

发表于 2016-12-13 11:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
13907933959 发表于 2016-12-13 07:28
网友好!

这个《循环遍历文件夹_字体格式宏》是我师傅413191246se帮我编写的,在下借花献佛,希望能帮 ...

非常感谢楼主,您的详细解答特别有用,已经开始使用了。同时也特别感谢您师傅413191246se

TA的精华主题

TA的得分主题

发表于 2016-12-13 13:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
diqi1234 发表于 2016-12-13 11:20
非常感谢楼主,您的详细解答特别有用,已经开始使用了。同时也特别感谢您师傅413191246se

楼主,我发现我的版本是03版的,无法兼容。您师傅有开发word 07版的吗?

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-12-14 06:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 13907933959 于 2016-12-14 07:04 编辑
diqi1234 发表于 2016-12-13 13:38
楼主,我发现我的版本是03版的,无法兼容。您师傅有开发word 07版的吗?

网友好!
这个是03版的(我用的也是03版的word),我师傅好象没有开发word 07版的,具体您还是问一下他吧,他人当好,只有他在线就会回复您?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-13 13:08 , Processed in 0.028615 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表