遇到的困難:word 2016的注音功能只能給大概二三十字一次性注音(未詳細數到底多少),對於成百上千字的文件注音就很繁瑣
解決方法:使用word中的巨集,在網上蒐集資料找到這篇文章:
對它做了一些修改,步驟如下:
1) 刪掉了巨集中分隔文字的片段:(有這段**的巨集處理速度會大大降低,且word總是崩潰)
2)使用word中替換命令,實現文字的自動分隔,(分隔速度極快)
ctrl+h(替換快捷鍵)-> 「空格^&」(不含引號)並把高階選項中的 「使用萬用字元」開啟。
3)調好預期的字型,大小等等
4)執行如下巨集
sub addpinyin()
'author:missilecat date:20140410 version:1.0.0
' addpinyin 巨集
'為一篇完整的word文字加上標音標註
dim tinttreatingcount as integer
dim tstrchara as string
dim tlngcurpos as long
dim tinta as integer
selection.wholestory
tstrtext = selection.text
tinttextlength = selection.characters.count
tintlinestart = 1
tinttreatingcount = 0
selection.goto what:=wdgotoheading, which:=wdgotoabsolute, count:=1
selection.moveright unit:=wdcharacter, count:=1, extend:=wdextend
selection.goto what:=wdgotoheading, which:=wdgotoabsolute, count:=1
for tintloopx = 1 to tinttextlength
tlngcurpos = selection.moveright(unit:=wdcharacter, count:=1, extend:=wdextend)
tstrchara = right(selection.text, 1)
if ascw(tstrchara) < 255 and ascw(tstrchara) > -255 then
if tinttreatingcount > 0 then
tinta = len(selection.text)
sendkeys "", 1
selection.moveright unit:=wdcharacter, count:=tinta
tinttreatingcount = 0
end if
else
tinttreatingcount = tinttreatingcount + 1
end if
next
end sub
按照我這個順序執行,最大的優點就是正確率高,(我實驗的幾次都沒有出現錯誤),但是原作者的方法有很多漏注的字,但是也存在很大的缺點就是,速度慢。
原因是我先分隔漢字,然後注音,就是每個字都執行一次注音程式,而原作者方法是多個字一注音。
如何給Word文件加密
word軟體是目前世界上使用最為廣泛的辦公文字處理軟體之一,在使用word檔案來儲存檔案的內容時,根據不同的安全需要,需要對檔案內容進行保護時就需要進行加密,而需要閱讀檔案內容時就需要解密。怎麼給word檔案新增密碼,有以下幾種方法 2007word 方法一 單擊office按鈕,在下拉列表中選擇 ...
給word文件加水印
以前覺得在word裡加個背景水印是件多麼不可能的事情,不過呢,到今天才發現原來這只是個很簡單的功能。發覺自己很 小樣 兩種方法 一,在選單欄中選 格式 背景 水印 就行了,在裡面可以加,加文字,還可以設文字顏色和大小等等。簡單,這個實在是太簡單了,這麼多年了居然都不知道這個。二,這個方法是我想了很久...
利用WORD發布博文
怎樣用 word 管理網易部落格 部落格,相信這年頭,只要在對上網略知一二的人都會有幾個賬戶吧.今天在網易部落格上瀏覽時無意間發現了網易支援word寫部落格的功能,仔細檢視了一下說明,親自試了一試,成功了.現在把經驗寫出來給大家分享一下,希望能給大家帶來幫助.工具 原料 開啟開始選單,選擇micro...