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

tangqingfu

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

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

sylun

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

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

tangqingfu

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

sylun

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

tangqingfu

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

sylun

可试试：
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

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

sylun

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

tangqingfu

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

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

tangqingfu

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