如何通过VBA正确显示原本的音标字体

tangqingfu · 发表于 2008-12-30 18:32

我是想如果有选定区域,则只对选定区域进行处理,没有选定区域则作全文档处理
主要是想知道在查找内容时,能添加勾选"突出显示所有在该范围找到的项目",并使其做到"查找全部"的代码?

[ 本帖最后由 tangqingfu 于 2008-12-30 18:47 编辑 ]

sylun · 发表于 2009-4-29 11:04

原帖由 tangqingfu 于 2009-4-28 23:06 发表
谢谢sylun兄的推荐!
我是想将其替换为wjhere兄的14版音标字体。代码该如何改进更好？

可参考：http://club.excelhome.net/thread-354231-1-1.html
拿不准汤兄所说的“改进”具体是指什么。

tangqingfu · 发表于 2009-4-27 21:32

Sub 批量选取音标字体()
With Dialogs(wdDialogEditFind)
.Find = "[!^1-龥！-￥]"
.Show
End With
End Sub
请教如何修改这段代码,使其能做到勾选"突出显示所有在该范围找到的项目"和"使用通配符"并"查找全部"?

sylun · 发表于 2009-4-27 23:10

印象中守柔版主曾就此问题有过总结。如要突出显示所有项目，不知汤兄为何要如此处理，而且一定要通过“查找全部”来实现吗？如果不是，可以试试用Editors.Add、Editors.SelectAll等方法来处理，记得Konggs版主曾编写过类似代码。

tangqingfu · 发表于 2009-4-28 12:19

由于将文档的字体重新设置后,发现音标字体显示异常,所以要查找文档中的音标字体,将查找到的音标字体重新恢复设置为音标字体.
希望做到有选定的区域,只对选定的区域进行处理,否则做全文档处理。
请教sylun兄该如何编写相关代码？

sylun · 发表于 2009-4-28 13:02

可试试：
Sub test()
Dim myRange As Range
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
Application.ScreenUpdating = False
With myRange.Find
.ClearFormatting
.Text = "[!^1-龥！-￥]{1,}"
.MatchWildcards = True
.Replacement.ClearFormatting
.Replacement.Font.Name = "Kingsoft Phonetic Plain"
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

tangqingfu · 发表于 2009-4-28 17:44

谢谢sylun兄!
测试通过!收藏学习!

sylun · 发表于 2009-4-28 22:53

其实查找代码"[!^1-龥！-￥]{1,}"只是为常规查找替换操作时便于手工输入用的，但这样的代码并非就是指金山字体字符代码，只是大致性的，不排除当中还有其他匹配字符也不是金山字体字符。用于VBA时，更合适的查找代码建议查看此帖：http://club.excelhome.net/thread-353272-1-1.html

tangqingfu · 发表于 2009-4-28 23:06

谢谢sylun兄的推荐!
我是想将其替换为wjhere兄的14版音标字体。代码该如何改进更好？

[ 本帖最后由 tangqingfu 于 2009-4-28 23:20 编辑 ]

tangqingfu · 发表于 2009-4-29 14:26

我仔细看看,有疑问再向sylun兄求教!

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

[求助] 如何通过VBA正确显示原本的音标字体