如何给汉字注音（在word中）?

如何给汉字注音（在word中）?

有无更简便的表达方法.判断插图的代码为：Sub Picture()������ Dim i As Paragraph������ '遍历段落������ With ActiveDocument�������������� For Each i In .Paragraphs���������������������� '如果段落中有嵌入式图形���������������������� If i.Range.InlineShapes.Count >= 1 Then���������������������������� MsgBox "有嵌入式图形"���������������������� Exit For���������������������� End If�������������� Next�������������� For Each i In .Paragraphs���������������������� '如果段落中有非嵌入式图形���������������������� If .Shapes.Count > 0 Then������������������������������ If i.Range.ShapeRange.Count >= 1 Then������������������������������������ MsgBox "有非嵌入式图形"������������������������������������ Exit For�������������������������� End If���������������������� End If�������������� Next������ End WithEnd Sub但如果为“公式编辑器”编的公式及前面所述的单一文本框也都会被“误认为”是插图,怎样消除这2个“误认为”呢?判断双行合一底纹方框的代码为：Sub 双行合一底纹方框()'������ Dim i As Range������ With ActiveDocument�������������� For Each i In .Characters���������������������� With i������������������������������ '判断是否有底纹������������������������������ If .Font.Shading.Texture <> wdTextureNone Then������������������������������������ MsgBox "有底纹"������������������������������������ Exit For������������������������������ '判断是否有边框������������������������������ ElseIf .Font.Borders(1).LineStyle <> wdLineStyleNone Then������������������������������������ MsgBox "有边框"������������������������������������ Exit For������������������������������ '判断双行合一������������������������������ ElseIf .TwoLinesInOne <> wdTwoLinesInOneNone Then������������������������������������ MsgBox "有双行合一"������������������������������������ Exit For������������������������������ End If���������������������� End With�������������� Next������ End WithEnd Sub目的是可达到,但好像只能在字符中循环,有无更好的方法?判断是否有无汉字加注音、拼音：我的思路是：打开域代码显示状态,查找^92^42 jc（即相当于查找\* jc）,如能找到则判断有,依据是汉字加注音、拼音WORD调用的是EQ域功能,其中的含有\* jc2或\* jc5.此法可靠吗?有无其他格式对此产生干扰?