Ms word 如何一次为所有文本添加语音指南?

Ms word 如何一次为所有文本添加语音指南?,ms-word,Ms Word,我有一篇大约1000字的文章。我想在每个中文单词的顶部添加拼音指南(拼音) 因此,在微软的话,我使用语音指南。然而,语音指南只允许我每次创建20到30个单词的拼音。我试图寻找一个函数,它允许我一次为所有单词添加语音指南,但我无法在网上找到答案 我还想使拼音指南字体更大,并在中文文本和拼音之间创造更多的空间 有专家能给我一些灯吗 不熟悉此区域,但起点是您可以调用“拼音指南”对话框,并让它为所选内容创建拼音。比如说 Sub testInsertPhoneticGuide() Call insertP

我有一篇大约1000字的文章。我想在每个中文单词的顶部添加拼音指南(拼音)

因此,在微软的话,我使用语音指南。然而,语音指南只允许我每次创建20到30个单词的拼音。我试图寻找一个函数,它允许我一次为所有单词添加语音指南,但我无法在网上找到答案

我还想使拼音指南字体更大,并在中文文本和拼音之间创造更多的空间

有专家能给我一些灯吗


不熟悉此区域,但起点是您可以调用“拼音指南”对话框,并让它为所选内容创建拼音。比如说

Sub testInsertPhoneticGuide()
Call insertPhoneticGuide(Selection.Range)
End Sub
Sub insertPhoneticGuide(r As Word.Range)
Dim d As Word.Dialog
Dim lng As Long
Dim lngChars As Long
Dim r1 As Word.Range
Dim r2 As Word.Range
On Error Resume Next
Set d = Word.Dialogs(wdDialogPhoneticGuide)
Set r1 = r.Duplicate
r1.TextRetrievalMode.IncludeFieldCodes = False
For lng = Len(r1.Text) To 1 Step -1
  Set r2 = r1.Characters(lng)
  ' Do not insert pinyin for any range that
  ' contains a field (this will prevent the code from re-inserting
  ' pinyin, but you can change the way this works if you like)
  If r2.Fields.Count = 0 Then
    r2.Select
    d.Show 1
    ' Error 6031 says there's no text to pinyin
    If Err.Number = 6031 Then
      Err.Clear
    Else
      On Error GoTo 0
    End If
  End If
Next
Set r2 = Nothing
Set r1 = Nothing
Set d = Nothing
End Sub
据我所知,没有办法在对话框中指定字体和大小/位置参数。它们不是“粘性的”。但是语音指南用包含拼音和原始字符的{EQ}字段替换每个合适的字符。EQ看起来像这样:

{ EQ \* jc2 \* "Font:SimSun" \* hps11 \o\ad(\s\up 10(fā),发) }
因此,只要您想要相同的字体、大小和位置,您就应该能够显示所有字段代码,并使用单词Find/Replace来修改每个EQ字段中的值(或者您可以添加代码来修改拼音中每个字符的值)


注意,还有一个语音指南()Word的Range对象的成员,用于指定拼音文本和定位参数。但是,要使用该对象,您必须以某种方式获取拼音文本-我在Word中知道的唯一方法实际上是使用拼音指南对话框插入它,但我想每个字符的必要信息都可以在web上获得。

在ca中在寻找了一段时间的解决方案后,我使用以下两种工具将拼音添加到了我的整个中文文档中:

(一)

2) 延长开放办公时间

希望这有帮助:)