句子批量给单词加注释加音标并标红

使用说明
功能：根据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

句子批量给单词加注释加音标并标红相关推荐

PDF处理软件：无法加注释加高亮（解密PDF等）
可以看看是不是文件被加密了,把文件扔到WPS里面文件就会显示出是否加密,例如文件名是<aa>,若该文件被加密,WPS上会显示<aa>(已加密) 推荐一个解密网页端,也有软件,移 ...
vi使用技巧--批量加注释任意符号
使用vi批量加注释"#"或者是// 等一些符号,看似简单但用处很大. 1.ctrl+v使用方向键上下选择范围: 2.shift+i进入编辑模式,添加"#".随后 ...
适合新手练手，用Python爬取OPGG里英雄联盟英雄胜率及选取率，详细讲解加注释（建议收藏练手）
今天来个简单的小项目,适合新手拿来练手,在OPGG上爬取英雄联盟里的法师,ADC,打野,辅助所有英雄的胜率及选取率,是不是感觉很高大上,但是却很简单,只要用三十多行代码就能实现,详细讲解每一行代码加注 ...
idea中自定义修改jdk源码，加注释
前言最近打算出jdk源码的博客,想在源码基础上加注释,在此把方法分享给大家. 处理方法打开project structures,选择sdk. 根据上方的路径,找到zip包,进行解压. 然后删除掉z ...
[导入]如何给表、列加注释？http://www.oradb.net
如何给表.列加注释文章来源:http://blog.csdn.net/yanlixin4csdn/archive/2005/03/12/318062.aspx 转载于:https://www.cnb ...
强悍的 vim —— 删除空行、删除注释以及加注释解注释
1. 删除空行空行的构成比较复杂 (1)删除没有内容的空白行 :g/^$/d (2)删除包含空格(%s)的空白行 :g/^%s*$/d 2. 删除注释 :%s/^#.*$//g 如果某些行以若干空格 ...
“在XML文件中给代码加注释”请注意注释的位置
先科普一下eclipse加注释的快捷键: eclipse中编辑Java文件时,注释和取消注释的快捷键都是: "CTRL + / " 编辑xml文件时,注释:CTRL + SHIFT ...
android XML文件加注释
android XML文件加注释如题. 注释以  结束, 例如 . 注意 android编程中有的控件(比如按钮)内部不能加注释 ...
python怎么加注释
python怎么加注释? 任何编程语言都少不了注释,Python也不例外,以下是Python注释的具体用法: 1. 单行注释 Python编程语言的单行注释常以#开头,单行注释可以作为单独的一行放在被 ...

句子批量给单词加注释加音标并标红

句子批量给单词加注释加音标并标红相关推荐

最新文章

热门文章