word給整篇文章注釋拼音

2021-10-03 07:25:22 字數 1638 閱讀 9213

遇到的困難: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...