Word音标助手COM加载项[更新2009.6.30版]

tangqingfu

运行文档的"批量选取音标字体"按钮.
注意要勾选"使用通配符"和"突出显示所有在该范围找到的项目"
我的可以啊!

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

wjhere

我太粗心了，原来是通配符的问题。如果不使用对话框，直接在程序中替换可以吗？会不会犯错误。

tangqingfu

这个我也不太清楚。我对VBA知识很肤浅，问一下sylun兄试试能不能。
我想关键是勾选那两个选项，如果没有勾选，就查找不到。在VBA中不知好不好解决？

wjhere

根据sylun兄以前的一个代码改写了一下，请测试，需要先选定内容（我不喜欢总是对全文档处理），如果没有问题就加进代码了。

tangqingfu

测试一下,可以通过!
但对于不连续的区域,代码只对最后一处进行处理。

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

dreammeinana

也许作为新人，很多方面都不懂。
感觉楼上的前辈讲得有点难懂。
也许这是比较高深的武功秘籍，真害怕，看来会走火入魔，哈哈^_^o(∩_∩)o...哈哈

tangqingfu

请参考sylun兄15楼的代码:
http://club.excelhome.net/viewth ... p;page=2&extra=
我修改了其中的音标字体,具体如下:
Sub 批量恢复异常的音标字体()
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 = "KPP Edition 2008教师节"
    .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

wjhere

很好，谢谢了。

wjhere

改变了工具条的排列，将不常用功能列为菜单。
增加了词典管理功能，可以方便修改词典或加入词典里面没有的单词的音标。
增加了恢复音标显示功能，可以恢复因为字体设置而显示空白的音标
增加了转换为免字体支持的功能，很方便的将音标发布到网页。（需设置）
目前，这些功能正在测试和完善，请提出宝贵意见。其他功能也正在计划。问题：
免字体支持功能使用的是unicode字符，所以不需要字体支持，但是有的字符并不是很完美，请酌情使用。因为符号没有找到合适的，如 次重音符号和大写的I，请大家帮忙找，看看有没有更合适的符号。

因为论坛可能不支持unicode字体的显示，具体效果请看：
http://blog.chinaunix.net/u1/52146/showart_1913764.html

tangqingfu

我想"词典管理功能"很有用!
但对于如何使用,期待wjhere兄在帮助中做出说明.
点击"词典管理"中的"读取音标"后,"音标"后的两个文本框出现相同的音标,不知wjhere兄能解释一下:前一个是词典里原本的音标吗?不知后一个是"待修改的音标"吗?如果在"待修改的音标"处修改音标后,点击"保存音标",就可以保存词典里的音标并做到了修改的作用?感觉不是很理解.因"保存音标"后,再选择该单词,前一个框还是原本的音标,第二个框是修改后的音标。好像不太合理，请wjhere说明或改进。以后词典中的音标是修改后的音标吗？
前一个测试是在删除部分音标时测试的情况。同时发现，如果想对文本框中的音标进行添加，点击“符号对照”中的音标符号，发现无法在文本框中插入音标符号。
免字体支持功能很好，可惜生成的符号部分不太像音标符号。我也试着找找看看有没有更合适的符号。

[ 本帖最后由 tangqingfu 于 2009-4-29 09:47 编辑 ]