使用說明
功能：根據word里面的單詞給juzi里面句子加單詞注釋并標紅。
可以往word那個sheet里面添加自己認為需要解析的單詞
功能介紹
第一步，準備需要翻譯的句子

第二步 調用宏方法
打開開發工具-宏

第三步察看內容

代碼

Sub biaozhujieshiyanse()Dim iNum As IntegerDim danciNum As IntegerDim tabname As StringDim i As IntegerDim icnt, nowcnt As IntegerDim jNum As IntegerDim kcnt As Integericnt = 1nowcnt = 1iNum = Sheets("juzi").[A65536].End(xlUp).Row'可以標記的單詞danciNum = Sheets("word").[A65536].End(xlUp).Row'MsgBox danciNum'jNum = Sheets("result").[A65536].End(xlUp).Row'For kcnt = 0 To jNum' Sheets("result").Range("A" & kcnt).ClearContents'NextSheets("result").Range("1:65536").ClearFor i = 1 To iNum'句子分解成單詞列表tabname = Sheets("juzi").Range("A" & i).Valuedancilist = ""biaozhulist = ""a = Split(tabname, " ")b = UBound(a)For cnt = 0 To bword = LCase(a(cnt))For m = 1 To danciNum:danword = Sheets("word").Range("A" & m).Value'如果句子單詞中需要標記的單詞，把解釋音標提取出來If word = danword Thendancilist = dancilist & Sheets("word").Range("A" & m).Value & " [" & Sheets("word").Range("B" & m).Value & "] " & Sheets("word").Range("C" & m).Value & Chr(10)biaozhulist = biaozhulist & Sheets("word").Range("A" & m).Value & "|"Exit ForEnd IfNextNext'& Chr(13) & Chr(10) 回車換行 Chr(10) 回車'把句子和單詞的解釋放入Sheets("result").Range("A" & nowcnt).ValueSheets("result").Range("A" & nowcnt).Value = Sheets("juzi").Range("A" & i).Value & Chr(10) & dancilist'MsgBox biaozhulist'單詞標顏色，加粗mybiaozhu = Split(Trim(biaozhulist), "|")bcnt = UBound(mybiaozhu)For j = 0 To bcntyanse = " " & LCase(mybiaozhu(j))h = InStr(Sheets("result").Range("A" & nowcnt).Value, yanse)If h > 0 ThenSheets("result").Range("A" & nowcnt).Characters(Start:=h, Length:=Len(yanse)).Font.Color = -16776961Sheets("result").Range("A" & nowcnt).Characters(Start:=h, Length:=Len(yanse)).Font.FontStyle = "加粗"End IfNext jnowcnt = nowcnt + 1NextEnd Sub

例子下載
https://download.csdn.net/download/weixin_44357283/11148875

總結

以上是生活随笔為你收集整理的句子批量给单词加注释加音标并标红的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。