如何给汉字注音(在word中)?

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 23:22:30
如何给汉字注音(在word中)?

如何给汉字注音(在word中)?
如何给汉字注音(在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.此法可靠吗?有无其他格式对此产生干扰?