[讨论](已彻底搞定)如何在文档中嵌入含音标字体?

ssq1109

在Windows Vista中的Times New Roman字体包含了新旧音标字体，且都是Unicode内码，不像金山音标字体那样占用拉丁字符内码，使文档交流可能引起混乱。这给输入音标带来方便。但因Windows Vista推广使用尚待时日，我发现用Windows Vista中的Times New Roman字体替换Windows 98/2K/XP中的Times New Roman字体都可以（在Windows 98中要在纯DOS下COPY，后两者只要退出所有应用程序可以直接复制粘贴，注意最好备份原字体）。但并不能要求所有的人都这样做。如果一含有音标字符的文档拿到没有安装此新版Times New Roman字体的电脑上，肯定不能正确显示，经试验，用在文档中嵌入字体的方法也不行。我估计因Times New Roman字体是系统字体的原因，但变换多个嵌入字体的选项都不能凑效。

不知有何良策处理以上问题。

[此贴子已经被作者于2007-2-7 11:56:56编辑过]

konggs

只能说谢谢分享。

ssq1109

谢谢孔兄！

先前潘悟云教授开发的IpaPanADD字体、国际音标标准化组织研制的SILDoulos IPA93字体及金山词霸中的Ksphonet.ttf字体都有普遍的应用。但请大家不要再用这3种字体，因它们占用把拉丁字符内码，很多和Symbol字符重复，最好的音标字符应为Unicode内码。所幸的是前述2种字体均在Unicode内码的音标字体，且和1楼所述的Times New Roman音标字符的内码相同。1楼已述用Times New Roman音标字符之弊可用下法解决，先在http://www.eastling.org/resource.htm下载ipapannew.zip并解压安装即会有IPAPANNEW字体，然后再用字体即可（该网站上还有相应的音标输入法），用了该字体后其音标字体可嵌入到文档中，即在“另存为”的弹出菜单中选“工具→保存选项”，勾选“嵌入TrueType字体”（并勾选其下的“只嵌入所用字符”）即可。这样得到的文档如在没有这种音标字体的机上也能正确显示和打印。

如已用了旧的IpaPanADD字体，上述网站上有一个转换宏可用。

如已用1楼类似的方法将音标字体设为Times New Roman又嵌不进文档，可先转为IPAPANNEW字体。我编了一个转换宏（可能不太完善，主要是查找项的限制可能不大好）：

Sub 音标转IPAPANNEW字体()

    With ActiveDocument.Content.Find
           .ClearFormatting
           .MatchWildcards = True
        With .Replacement
          .ClearFormatting
          .Font.Name = "IPAPANNEW"
        End With
       .Execute findtext:="([/\[]{1})([!一-﨩]@)([/\]]{1})", replacewith:="^&", _
           Format:=True, Replace:=wdReplaceAll
    End With
End Sub

[此贴子已经被作者于2007-4-24 12:48:48编辑过]

菊石泽露

以后用的着！谢谢分享。