【閱讀時間】5分鐘

　　【理解時間】10分鐘

　　【文檔獲取】點擊青牛智能古老師的頭像--轉發--關注後--私信：“高效輸入"”，即可得到。做制造行業,經常需要輸入大量的非常規詞,

　　此時，用拼音也好,用五筆也好,都非常低效,這裡分享一下我的做法:

　　用Excel 批量提取非标詞語的拼音首字母;用輸入法的自定義詞組，批量導入登陸賬号後可以雲共享； 辛苦一次，後續就不用這樣痛苦了……

　　建立Excel拼音模闆COPY 以下代碼 Function pinyin(p As String) As String

　　i = Asc(p)

　　Select Case i

　　Case -20319 To -20284: pinyin = "A"

　　Case -20283 To -19776: pinyin = "B"

　　Case -19775 To -19219: pinyin = "C"

　　Case -19218 To -18711: pinyin = "D"

　　Case -18710 To -18527: pinyin = "E"

　　Case -18526 To -18240: pinyin = "F"

　　Case -18239 To -17923: pinyin = "G"

　　Case -17922 To -17418: pinyin = "H"

　　Case -17417 To -16475: pinyin = "J"

　　Case -16474 To -16213: pinyin = "K"

　　Case -16212 To -15641: pinyin = "L"

　　Case -15640 To -15166: pinyin = "M"

　　Case -15165 To -14923: pinyin = "N"

　　Case -14922 To -14915: pinyin = "O"

　　Case -14914 To -14631: pinyin = "P"

　　Case -14630 To -14150: pinyin = "Q"

　　Case -14149 To -14091: pinyin = "R"

　　Case -14090 To -13319: pinyin = "S"

　　Case -13318 To -12839: pinyin = "T"

　　Case -12838 To -12557: pinyin = "W"

　　Case -12556 To -11848: pinyin = "X"

　　Case -11847 To -11056: pinyin = "Y"

　　Case -11055 To -2050: pinyin = "Z"

　　Case Else: pinyin = p

　　End Select

　　End Function

　　Function py(str)

　　For i = 1 To Len(str)

　　py = py pinyin(Mid(str, i, 1))

　　Next i

　　End Function

　　新建一個Excel表 按下Alt F11 依次點: 插入---模塊---如圖示處複制以下代碼

　　後保存為啟用宏的模闆 (注意開啟宏功能)

　　保存此文件為模闆,後續隻要是難寫,經常寫的,都可以快速用這個模闆( 自定義函數 "=PY(" )提取拼音.效果如下

　　輸入法自定義詞庫導出

　　打開此文件,獲取标準格式

　　在Excel中按此格式設置好,在複制到此,最後導入到輸入法中分别在Excel中的設置如下公式:公式1=PY(A2) 提取拼音-大寫公式2=LOWER(B2) 轉換拼音-小寫公式3=CONCATENATE(C2,D2,E2,F2,G2)

　　複制到文本文檔中,再導出輸入法中

　　最終效果

　　此模闆為固定模闆

　　獲取方法見上文

　　大家好,我是頭條号作者,職場問答專家，青牛智能古老師,專注于智能制造生态鍊綜合服務,計劃體系改善，有思想、有技術、可信任！歡迎咨詢合作。

　　,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!