如何用vba修改字体（分汉字、英文、数字三个类型修改）

andy800529 · 发表于 2015-10-13 00:19

413191246se 发表于 2015-10-12 21:17
* 看楼主和升华（shenghua8）朋友讨论得很热烈，开始没敢参与，怕抢升华的风采！
* 但为了方便楼主工作 ...

代码很好，完全没有问题。
Selection.HomeKey Unit:=wdStory 这个代码有什么用途啊？

413191246se · 发表于 2015-10-13 11:00

楼主，你说的这句代码，意思是把光标移至文档开始处（这样好从头查找数字），是录制的，其实我也记不住这句话。另：我给你的宏，命名为 AutoClose，它是 Word 2003 的自动宏，它的意思是，每个文档在退出时自动执行这个宏，但要想让它发挥作用，需要选择“保存——是”才可以，如果选择否，会放弃文档的修改。——如果哪天楼主觉得不喜欢这种格式了，可以把 AutoClose 宏改个宏名，如 TEST，或干脆删除它。

shenghua8 · 发表于 2015-10-13 12:10

413191246se 发表于 2015-10-13 11:00
楼主，你说的这句代码，意思是把光标移至文档开始处（这样好从头查找数字），是录制的，其实我也记不住这句 ...

413191246se 大师，太神了！
吾辈心目中的大神啊，可望不可及。

你的代码如此精简，竟如此好用！

AutoClose 过程放到任何模块竟然都行，
不必比照Excel放到 Private Sub Workbook_BeforeClose 那样，而放到 Private Sub Document_Close 里。

我对你的景仰有如滔滔江水连绵不绝，又犹如黄河泛滥一发不可收拾。
{:soso_e179:}

andy800529 · 发表于 2015-10-13 13:52

我觉得他的代码精简，主要是用了font的不同属性吧。fareast适用于东亚文字，而ascii属性适用于拉丁字母。

shenghua8 · 发表于 2015-10-13 14:40

andy800529 发表于 2015-10-13 13:52
我觉得他的代码精简，主要是用了font的不同属性吧。fareast适用于东亚文字，而ascii属性适用于拉丁字母。

先统一设置中文字体和西文字体，
然后用个Do...Loop循环，查找数字，单独解决数字字体问题。

413191246se · 发表于 2015-10-13 20:08

楼主、升华两位朋友：你们的谬赞，我愧不敢当！我仅仅是会VBA一点皮毛而已。
掌握 Word 2003 最初步的只有三点：页面设置/字体/段落，这三项都可以在新建空白文档后，用录制宏的方法得到代码。
正如升华shenghua8 朋友楼上所说，利用《字体》命令设置中英文字体后，再单独查找数字设置为 Arial 字体即可。
其实我会录制宏很多年，但真正会编辑宏是 2011年6月间，现在一些浅显的功能都能通过VBA编程来实现，但跟本坛高人相比，天壤之别！——两位如果有意，可以自学 VBA 微软官方帮助，你们也会编程的（本坛有我上传的 VBA 微软官方帮助，查找一下可也）。

andy800529 · 发表于 2015-10-13 20:34

413191246se 发表于 2015-10-13 20:08
楼主、升华两位朋友：你们的谬赞，我愧不敢当！我仅仅是会VBA一点皮毛而已。
掌握 Word 2003 最 ...

vba太博大精深了。
三千弱水只取一瓢，我只想学会我能用到的那一部分。

andy800529 · 发表于 2015-10-14 06:09

413191246se 发表于 2015-10-13 20:08
楼主、升华两位朋友：你们的谬赞，我愧不敢当！我仅仅是会VBA一点皮毛而已。
掌握 Word 2003 最 ...

我想请教一下，可以在保存的时候触发代码执行吗？我发现在退出时执行还是有点不方便，因为我要另存为pdf文件。

andy800529 · 发表于 2015-10-14 22:26

413191246se 发表于 2015-10-13 20:08
楼主、升华两位朋友：你们的谬赞，我愧不敢当！我仅仅是会VBA一点皮毛而已。
掌握 Word 2003 最 ...

没有找到你的VBA微软官方帮助（我的excel VBA只要一点帮助都是连接到互联网了）
你的主题很多很丰富，不容易找到。

413191246se · 发表于 2015-10-15 16:24

楼主，既然你要在保存时达成你的格式设置，只须把“保存”（FileSave）命令作为宏名即可：

Sub FileSave()
Selection.WholeStory
Selection.Font.NameFarEast = "华文细黑"
Selection.Font.NameAscii = "Times New Roman"
Selection.HomeKey Unit:=wdStory
Do
Selection.Find.ClearFormatting
Selection.Find.Execute findtext:="^#"
If Selection.Find.Found = True Then Selection.Font.Name = "Arial"
Loop Until Selection.Find.Found = False
Selection.HomeKey Unit:=wdStory
ActiveDocument.Save
End Sub

复制代码

***微软官方VBA帮助如下：

VBA 微软官方VBA帮助（原版）.rar (74.2 KB, 下载次数: 81)

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

[求助] 如何用vba修改字体（分汉字、英文、数字三个类型修改）

评分