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

wjhere

谢谢sylun兄帮助，如果多次替换会出现多重括号，[[ ]]，看来只有最后进行一次替换了？

sylun

上面的查找替换操作是针对全部脚注的。如果是对选定内容进行常规查找替换，替换搜索范围可选向下。如果是VBA处理，就是针对指定的Range或指定的Footnote对象的相关区域；如只针对某条脚注内容，可先取得其Index值再定位，也可在插入脚注时直接插入方括号字符而不用查找替换。

wjhere

谢谢sylun兄，我修改了一下您的代码
查找 (^2)[!\]]
替换 ^91\1^93^32
使用通配符
可以得到结果，只替换不是括号的，加上了[ ]号
如果想删除[ ]号可以执行：
查找 \[(^2)\]
替换 \1
使用通配符
请教两个问题：
1、^91\1^93^32，写成 \[\1\]^32 为什么不行，还可以怎么写？
2、如果在插入脚注时直接插入方括号字符，该如何操作？

sylun

在查找替换的替换框中，反斜框“\”的用法与在查找框中的用法不同，它只表示一组表达式，而不是特殊字符。通常可直接在替换框中输入字符，如上例可用“[\1]^32”，但好像也有例外。
如要在插入脚注时直接插入方括号字符，可试试如下代码：
Sub test()
Dim myFootnote As Footnote
With Selection
    With .FootnoteOptions
        .Location = wdBottomOfPage
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleArabic
    End With
    Set myFootnote = .Footnotes.Add(Range:=.Range, Text:="test n. 测试，试验。")
    With myFootnote
        .Reference.Find.Execute "^2", replacewith:="[^&]", Replace:=wdReplaceAll
        .Range.Paragraphs.First.Range.Find.Execute "^2", replacewith:="[^&]", Replace:=wdReplaceAll
    End With
End With
End Sub

wjhere

收到，谢谢，我试试。

wjhere

测试一下，如果在前面加入脚注，后面的脚注出现了类似 [[[ 2]]] 的多重括号，根据您的代码下面一行的启发，尝试修改了此行 .Reference.Find.Execute "^2", replacewith:="[^&]", Replace:=wdReplaceAll为，.Reference.Words.First.Find.Execute "^2", replacewith:="[^&]", Replace:=wdReplaceOne，问题解决。

wjhere

请qingfu兄帮忙整理后缀为er,ing单词的音标。
改进了词典管理功能，使之更适合音标整理。如果提示错误，把comdlg32.ocx复制到系统system32目录

[ 本帖最后由 wjhere 于 2009-5-16 09:17 编辑 ]

wjhere

通过金山词霸标注的部分单词，直接复制到字典文件最后即可。

tangqingfu

周末恐怕没时间整理,等到星期一再开始做这一工作,wjhere兄不会见怪吧.
将189楼的Word音标助手.dll替换原来的Word音标助手.dll,测试了一下,对于选中的英语内容,点击"朗读",发现不能朗读(已安装了Kate和Paul的语音引擎且在线功能已处于关闭状态),如果用原来的Word音标助手.dll,则可以朗读;请wjhere兄测试一下.
像190楼音标(金山词霸已标注er ing.txt),当然可以像wjhere兄说的通过金山词霸标注的部分单词，直接复制到字典文件最后即可。能否做到能过导入的方式进行导入,我觉得可以将这个功能做进"字典管理"中.
提个建议,能否将"字典管理"改为"词典管理",英语方面应该称为词典会不会更合适?

[ 本帖最后由 tangqingfu 于 2009-5-16 21:37 编辑 ]

tangqingfu

"脚注"与"尾注"问题,与wjhere探讨：
脚注的代码好像还没做到[1]这样的格式。另外能否开发"尾注"的功能（单击某个单词或字或选中内容，点击“尾注”，即可在文档的末尾生成尾注的格式，用户即可在该处添加引文的出处）？在写论文时，常要用到“脚注”功能，而“尾注”功能使用频率比“脚注”更高。（脚注和尾注是对文本的补充说明。脚注一般位于页面的底部，可以作为文档某处内容的注释；尾注一般位于文档的末尾，列出引文的出处等。），我想有用到“脚注”功能的用户，往往也会使用“尾注”功能，如果添加这一功能，我想在一定程度上会吸引更多的用户使用“Word音标助手”工具，这时的用户，我想这时候不仅仅是学英语的用户了。
另外，感觉代码中的”脚注“是针对英语方面的，能否做到也能针对中文的内容？能否使代码做到让用户进行选择，可以是对“英语“的”脚注“和“尾注”，也可以是”中西文“混合(论文)的“脚注”和“尾注”，即也可适用于中文论文、英语论文及中英文混合的论文的多种情况？
建议：
我一直以为，这个工具应当做全一些，不仅仅是音标助手而已，好像“音标助手”这一名称不是太吸引人，给人的感觉是功能单一，在推广方面比较困难！从本帖的关注度多少可以看得出，如果想吸引更多的用户，此工具应做得更全面一些,可以将从文本到语音功能等功能做得更全面些（我以为再添加对中文文本的朗读功能），以吸引更多的用户。同时，给这个工具取个更具有吸引力的名称。并可在“窗体”中适度介绍主打的功能！
因此，我觉得现在主打的方向，应该是开发或添加更多的功能（当然，我觉得本工具应以英语方面为主,同时适度兼顾相关的中文方面的功能）；对于单词音标还不完善的地方（如没重音及音标错误的问题）可以日后逐步完善。
以上一些想法仅供wjehre兄参考，不周之处，请wjhere兄批评、指正！

[ 本帖最后由 tangqingfu 于 2009-5-16 22:33 编辑 ]