将文件夹内多个文件中同一个或多个字符替换：字号、字体、字形、颜色

13907933959 · 发表于 2015-12-25 17:45

本帖最后由 13907933959 于 2015-12-26 09:01 编辑

413191246se 发表于 2015-12-25 15:01
139：你最后这个新题目比较难，建议发新帖征求天下高人！（我水平确实有限，你不必把我捧得那么高。我能帮 ...

师傅好！
如分为4个单独循环遍历查找替换的宏可否？
1、查找字体替换字体
2、查找字号替换字号
3、查找字型替换字型
4、查找颜色替换颜色

因我整理的资料快接近尾声，急需要这几个宏进行调整，还请师傅为徒弟想想办法！

13907933959 · 发表于 2015-12-27 08:26

本帖最后由 13907933959 于 2016-1-28 11:37 编辑

13907933959 发表于 2015-12-25 17:45
师傅好！
如分为4个单独循环遍历查找替换的宏可否？
1、查找字体替换字体

师傅好！
感谢师傅代为徒弟发帖求助，难为师傅了！
师傅、昨天我在网上无意中看到一个批量设置字号的宏，测试了一下，虽不合乎我的要求，但可正常运行，速度也超快，这个宏一个是不能遍历子文件夹，二是还要对文件夹内的文件全选后方可，求师傅把这二项修改一下，另外、师傅有不有办法把字体、字形、颜色3个宏类似这个宏的方式编写。

Sub 修改文件夹内Word文档的字号()
Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
' On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Title = "请选择要处理的文档（可多选）"
.Filters.Clear
.Filters.Add "所有 WORD 文件", "*.doc", 1'增加筛选器的项目为所有WORD文件
.AllowMultiSelect = True
If .Show = -1 Then
Application.ScreenUpdating = False
For Each vrtSelectedItem In .SelectedItems
Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
With Doc
With .Content
With .Font
' .NameFarEast = "宋体"
.Size = 9
End With
End With
.Close True
End With
Next
Application.ScreenUpdating = True
End If
End With
MsgBox "批量设置完毕!", vbInformation
End Sub

13907933959 · 发表于 2015-12-31 16:03

本帖最后由 13907933959 于 2015-12-31 16:06 编辑

13907933959 发表于 2015-12-27 08:26
师傅好！
感谢师傅代为徒弟发帖求助，难为师傅了！
师傅、昨天我在网上无意中看到一个批量设置字号的宏 ...

师傅好！
这个宏一个是不能遍历子文件夹，二是还要对文件夹内的文件全选后方可，求师傅把这二项修改一下，另外、师傅有不有办法把修改字形、颜色，类似这个宏（全选文档）的方式编写2个单个的宏（不用窗体），徒弟急用，有劳师傅！

413191246se · 发表于 2016-1-1 00:29

本帖最后由 413191246se 于 2016-1-1 00:32 编辑

139：此宏仅仅是设置整个文档为五号字，没有什么出奇之处。你的具体问题是什么？

13907933959 · 发表于 2016-1-1 08:10

本帖最后由 13907933959 于 2016-1-2 07:30 编辑

413191246se 发表于 2016-1-1 00:29
139：此宏仅仅是设置整个文档为五号字，没有什么出奇之处。你的具体问题是什么？

师傅好！
新年快乐！
我的意思想让师傅把这个替换字体、字号的宏，二处下足的地方修改一下：
1、这个宏不能遍历子文件夹；
2、在选定了文件夹后还要对文件夹内的文件全选后方可。

另外、想求师傅把这个宏再演变成遍历文件夹修改字形、颜色的2个单个的宏（合二为一也可），（不用窗体的方式），虽然这个宏是整个文档一起修改，不如意，但能整理一部分资料，整理了一部分就少了一部分，因离春节也不远了，还有很多事没有完成，只能先凑合着用，资料全部整理完还期盼师傅编写的宏提速后，不然靠手工一个一个不知何时能完成！只能劳师傅了！徒弟拜谢！

字形、颜色的宏在代码中先选定一种，如：字形：先选定文档替换为非加粗（常规、加粗、非加粗、倾斜、非倾斜、加粗倾斜，这6个字形代码师傅给一下，以后在具体操作中我自己替换）。

颜色：先选文档定替换为蓝色，其它颜色师傅以前给过，以后在具体操作中我自己替换。

13907933959 · 发表于 2016-1-5 16:36

本帖最后由 13907933959 于 2016-1-5 16:49 编辑

413191246se 发表于 2015-12-20 14:41
139：用《微软的示例VBA程序》扩展了一下，完成了主要代码部分，包括字体/字号/字形/颜色四种替换。
实际 ...

师傅好！

求师傅在窗体上增加：Times New Roman 和 Tahoma 二种字体。

13907933959 · 发表于 2016-1-6 08:31

413191246se 发表于 2015-12-20 14:41
139：用《微软的示例VBA程序》扩展了一下，完成了主要代码部分，包括字体/字号/字形/颜色四种替换。
实际 ...

师傅好！
请把窗体上的白色去掉，换成鲜绿色，白色我几乎不会用到。

413191246se · 发表于 2016-1-13 15:59

循环遍历文件夹_设置指定文字字体格式_黄芪.rar (3.95 KB, 下载次数: 87)

13907933959 · 发表于 2016-1-14 08:14

413191246se 发表于 2016-1-13 15:59

师傅好！
测试了，我发现一个奇怪现象，这个窗体上Times New Roman 和 Tahoma 这二种字体的数字，可以互相转换宋体、仿宋、楷体、黑体…等字体。而Times New Roman 和 Tahoma 这二种字体的标点符号，如：双引号可转换宋体，但不能转换仿宋、楷体、黑体…等字体。

413191246se · 发表于 2016-1-14 09:16

139：请提供附件。。。

		自动登录	找回密码
密码			免费注册

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