如何给汉字注音（在word中）？-天涯问答

如何给汉字注音（在word中）？ [电脑软件 电脑基础 ] 回答sheop 2009-04-08 13:27:27 113.132.215.* 查找的标题的代码我写成：Sub BT()'判断有无标题    With ActiveDocument.Content.Find        .ClearFormatting        .Style = "标题 1"        .Text = ""       If .Execute Then MsgBox "文档中有标题"    End WithEnd Sub但问题是文中不一定只有“标题1”，还可能有“标题2－9”，当然写9个这样的语句块也可达到目的。有无更简便的表达方法。判断插图的代码为：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。此法可靠吗？有无其他格式对此产生干扰？     feighter18 2009-04-08 13:27:29 120.71.41.* 本身WORD是中文软件，输入英语都会出现下划线（红色的）。说明勉强支持英语，日语就不知道支持不支持了。如果不支持，就会出现你说的种种情况。     本善心良 2009-04-08 13:27:30 61.163.70.* 查找的标题的代码我写成：Sub BT()
'判断有无标题
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Style = "标题 1"
        .Text = ""
       If .Execute Then MsgBox "文档中有标题"
    End With
End Sub
但问题是文中不一定只有“标题1”，还可能有“标题2－9”，当然写9个这样的语句块也可达到目的。有无更简便的表达方法。判断插图的代码为：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 With
End 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 With
End Sub目的是可达到，但好像只能在字符中循环，有无更好的方法？判断是否有无汉字加注音、拼音：我的思路是：打开域代码显示状态，查找^92^42 jc（即相当于查找\* jc），如能找到则判断有，依据是汉字加注音、拼音WORD调用的是EQ域功能，其中的含有\* jc2或\* jc5。此法可靠吗？有无其他格式对此产生干扰？     pingxingxian54 2009-04-08 13:46:20 219.154.17.* 是问注汉语拼音？？     ggabcdef 2009-04-08 14:51:42 221.224.13.* 估计要手工标注了。     gaoxinggaoxing 2009-04-09 02:31:38 71.198.219.* 选中需要加拼音的文字，然后进入菜单：“格式”-“中文版式”-“拼音指南”，确定即可。     泡泡6 2009-04-16 09:53:57 122.7.24.* 查找的标题的代码我写成：Sub BT()'判断有无标题    With ActiveDocument.Content.Find        .ClearFormatting        .Style = "标题 1"        .Text = ""       If .Execute Then MsgBox "文档中有标题"    End WithEnd Sub但问题是文中不一定只有“标题1”，还可能有“标题2－9”，当然写9个这样的语句块也可达到目的。有无更简便的表达方法。判断插图的代码为：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     winkenny 2009-04-17 15:37:42 121.9.250.* 着重号如楼上 横线可以打一些空格，然后设置下划线。选中打出的空格，按下Ctrl+U，即可。 田字格是在文档中一行一行出现的吗？不知道你的具体要求，用表格经过调整大小应该能作为田字格。   智能ABC中如何给汉字加拼音注解?声调等?按"v"再按"8"就会有加拼音的字母!发音: 运行中输入 narrator.exe(narrator:讲述人)