如何將語音指南一次添加到所有文本？

我有一篇大約有1000箇中文單詞的短文。我想在每個中文單詞的頂部添加拼音指南（Pin Yin）。如何將語音指南一次添加到所有文本？

因此，在MS詞中，我使用了拼音指南。但是，拼音指南只允許我每次創建拼音20到30個單詞。我試圖尋找一種功能，允許我一次添加所有單詞的語音指南，但我無法在網上找到答案。

我也想讓拼音字體變大一點，並在拼音和拼音之間創造更多的空間。

任何專家都可以給我一些燈光嗎？

enter image description here

2016-01-05 Mucc2016

不熟悉這個領域，但出發點是，你可以調用拼音指南對話框，並把它打造爲拼音的選擇。例如

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ā),發) }

所以只要你想同樣的字體，大小和位置，你應該能夠顯示所有的域代碼，並使用Word查找/替換修改每一個這些值EQ字段（或者您可以添加代碼來修改您拼音的每個字符的值

注意，Word的Range對象還有一個PhoneticGuide（）成員，可以指定拼音文本和定位參數。，爲了使用它，您必須以某種方式獲得拼音文本 - 我在Word中知道的唯一方法實際上是使用拼音指南對話框來插入它，但我想象每個字符的必要信息都可以在網頁。

來源

2016-01-05 13:52:58

有一個inexpensive commercial app與Word集成並執行此操作。試用版將一次轉換300個字符，並允許Word文檔中的範圍自動調整字體大小/顏色。

來源

2016-04-24 10:07:31 fzzylogic

如果有人談到這個問題再次，搜索一會兒的解決方案後，我設法拼音添加到我的整個中國文檔通過使用以下兩種工具：

1）Open Office

2 ）Open Office的OO Pinyin Guide擴展。

希望這有助於：）

來源

2017-03-25 10:39:41 user6799645

如何將語音指南一次添加到所有文本？

回答

相關問題