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

tangqingfu

第一页的文档是在将第一页的内容设置为宋体后变成这样的,请教如何用VBA代码将第一页的文档还原成(第二页)原本的字体?

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

wdwc

这得有那个音标字体啊，我的电脑上没有，都是这样的

tangqingfu

我已装了音标字体了,在将第一页的内容设置为宋体后,音标部分发生了变化,不是音标字体了,请教如何用VBA代码将第一页的文档还原成(第二页)原本的字体?

wdwc

最简单的办法，格式刷，如果不多的话，或者查找选中所有需要设置的音标，然后设置格式或直接替换格式

tangqingfu

如果多的话,那就不好处理了,期等高效的解决办法

sylun

看看如下查找代码的命中率：[!^1-龥！-￥]

tangqingfu

可行,能否请sylun兄解释一下代码意思?

tangqingfu

如何完善以下代码:
问题:如何做到勾选"突出显示所有在该范围找到的项目",并使其做到"查找全部"?为什么在查找框中无法显示"[!^1-龥！-￥]"?
Sub 批量选取音标字体()
Dim myRange As Range, myEnd As Long
'如何没有选定区域则作全文档处理
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
myEnd = myRange.End  '取得待区域的结束位置
With Dialogs(wdDialogEditFind)
.Show
With myRange.Find
    .ClearFormatting '清除查找框格式
    .MatchWildcards = True  '勾选“使用通配符”
    .Text = "[!^1-龥！-￥]"
End With
End With
End Sub

[ 本帖最后由 tangqingfu 于 2008-12-27 20:36 编辑 ]

tangqingfu

希望各位帮忙一下,如何解决8楼代码的问题?

sylun

楼主的意图是什么？dialog对象与find对象怎么都用上？myEnd一句想用来做什么？执行替换后，如字符数有变化，myEnd的位置并非就是原区域的结束位置。