SkyBear

回復 10# mamimumemo

下載 (57.76 KB)

2016-12-7 08:51

不好意思最近比較忙，其實這用法很簡單，依照上圖來說，用一行公式就可以了，但我目前不能抓取在右邊的注音，只能抓文字上面的資料　　

mamimumemo

下載 (4.34 KB)

2016-12-8 05:55

我試過了，真的可以耶。:lol
有意思！！

只是注音都必須要手動一個一個打上去 ，真的很不方便。><"

注音在右邊的，真的抓不到注音符號，只抓得到文字。:(

mamimumemo

我想到一件事，可以用巨集錄製，看它的程式碼怎麼寫，
我錄了一段，可以給你參考看看：
『
    ActiveCell.FormulaR1C1 = "客"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "客"
    ActiveCell.Characters(1, 1).PhoneticCharacters = "ㄎㄜˋ "
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=MID(PHONETIC(RC[-3]),1,1)"
    Range("D2").Select
』
說不定可以給你一點啟發。^^

mamimumemo

1.     Selection.Phonetics.Visible = True
   
2.     With Selection.Font
   
3.         .Name = "王漢宗中楷體注音"
   
4.         .Size = 12
   
5.         .Strikethrough = False
   
6.         .Superscript = False
   
7.         .Subscript = False
   
8.         .OutFont = False
   
9.         .Shadow = False
   
10.         .Under = xlUnderStyleNone
    
11.         .ThemeColor = xlThemeColorLight1
    
12.         .TintAndShade = 0
    
13.         .ThemeFont = xlThemeFontNone
    
14.     End With

複製代碼

這一段是，我選擇字型時，出現在程式碼片段。
完全看不到有任何的注音符號，不知道，它是用什麼方式，顯現注音的。><"

SkyBear

回復 12# mamimumemo

注音的部分我都是用word的功能轉出來的,
這是目前試出來最快的方法 ^^

SkyBear

回復 13# mamimumemo



ActiveCell.Characters(1, 1).PhoneticCharacters = "ㄎㄜˋ "
這一段應該是要自己輸入的吧?

mamimumemo

回復 16# SkyBear

是呀！
我也有在想，有沒有什麼可以自動的方法，
程式碼能夠自動辨識出注音符號，然後把它寫進去。
有個網頁就能夠做到這個功能
https://www.chineseconverter.com/zh-tw/convert/zhuyin
不知它裡面的機制(程式碥是怎麼跑的)是怎麼樣？？

SkyBear

回復 17# mamimumemo

這是一個好網站，我在想最快的方式就是：資料庫
利用資料比對資料庫，秀出相對應的注音！！

mamimumemo

回復 18# SkyBear

這個方法，不錯喔！

只是，這個資料庫，會很龐大哦！
要把很多的國字及國字的注音都納進去
再利用比對的方式，找出該國字存在此資料庫的注音。

這的確是一個好方法。
只是不知道每個字都要去資料庫裡比對，會不會很消粍時間呢？
還有這個資料庫要怎麼能夠快速地建起來呢？

lpk187

回復 19# mamimumemo


    注音字典資料庫其實並不會龐大，若以C#來建立注音字典也不是很困難的事。
下面檔案，只提供部份資料庫(恕不提供完整資料庫)，其實它就是一個文字檔案而已
Debug.rar (9.64 KB)

下載次數: 1

2017-1-17 00:25