直播脚本宣传审核丨敏锐词高亮VBA-天涯论坛

4zhvml8 发表于 2024-8-7 08:41:48

直播脚本宣传审核丨敏锐词高亮VBA

直播脚本通常都非常冗长，审核难度虽然不大，然则非常考验审核人员的连续重视力。部分机构不接受第三方审核工具，亦不接受上传云端的在线审核工具，因此只能依靠人工逐字逐句审核。无奈之下，只好依靠word本身的的宏来自动高亮提示敏锐词，以下是一种高亮敏锐词的VBA：‍‍‍‍
---分割线---‍‍
Sub HighlightWordsWithComments()
    Dim WordsArray As Variant
    Dim i As Integer
    Dim FoundRange As Range
    定义您想要高亮的词汇数组
    WordsArray = Array("Word1", "Word2", "Word3", "等等")
    定义固定的修改意见
    Dim CommentText As String
    CommentText = "请检测这个词汇的用法。"
    起始循环遍历每一个词汇
    For i = 0 To UBound(WordsArray)
        Set FoundRange = ActiveDocument.Content
FoundRange.Find.ClearFormatting
        With FoundRange.Find
            .Text = WordsArray(i) 设置查询文本为当前词汇
            .Format = True
            .MatchCase = False 不区分体积写
            .MatchWholeWord = True 只匹配全部词
.MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            执行查询并应用高亮格式和添加评论
            Do While .Execute(Forward:=True) = True
FoundRange.HighlightColorIndex = wdYellow 设置高亮颜色
                FoundRange.Comments.Add Range:=FoundRange, Text:=CommentText
                FoundRange.Collapse Direction:=wdCollapseEnd
            Loop
        End With
    Next i
End Sub
----分割线----
详细操作过程：怎样添加宏到 Word:
1 按下 Alt + F11 打开 VBA 编辑器。
2 在项目浏览器中，找到当前的文档，而后右键点击“Microsoft Word 对象”下的 "ThisDocument"，选取“插进” -> “模块”。
3 在新模块的大窗口中粘贴上面的代码。
4 关闭 VBA 编辑器，并保留文档。
5 能够经过按 Alt + F8 选取和运行宏来执行它。
标红的“word”能够搜索平常的敏锐词，如绝对化用语、公序良俗词，亦能够按照制品品类添加详细的类别，例如医疗用语、打扮品行业特有词库等。以打扮品为例，以下为平常的敏锐词（来自网络，仅供参考）：
国家级、世界级、宇宙级、全世界级、最高级、特级、顶级、冠级、至尊、最佳、最好、第1、最．．．之1、首创、最新创造、最新发明、最新科学、最高技术、最先进加工工艺、最先进制法、Max、Top；
100%安全、99.99%有效、零包袱、纯天然**、纯自然、零添加、无添加、无副功效、纯植物、生态、敏锐、纳米、有机、包治百病、根治；
无与伦比、无可比拟、完美、独特、独一无2、神奇、从未有过的、极致、长效、全天候、特效、有效、全效、强效、奇效、速效、超强、全面的、全方位、再生、超凡、抗疲劳。
中医、西医、中西医结合、内科、外科、妇科、五官科、眼科、皮肤科、牙科、中药、中草药、西药、药方、汉方、韩方、藏方、苗方、蒙方、维方、古方、秘方、验方、祖方、单方、复方、方剂、处方药用、药品等；
炎症、湿疹、皮肤发炎、荨麻疹、消化不良、糖尿病、血糖血脂、干眼症、飞蚊症、视觉阻碍、甲状腺、内分泌、代谢错乱、器官、衰竭、感染、病、症、疾、疾患、癌、瘤、功能阻碍、患处、医疗、医治、治疗、就诊、诊断、诊治、治愈、恢复、病变、妊娠纹、妊娠斑、黄褐斑、病理性脱发、斑秃、全秃、普秃、疤、瘢、疹、疮、疔、疥、疖、痈、癣、炎、伤、痛、肿、脓、疱、痉挛、抽搐、酒糟鼻、脚气、感染、止脱、生发、毛发再生、净斑、红斑、红肿、关节痛、冻疮、刀伤、烧伤、烫伤、疮痈、毛囊炎、皮肤感染、病毒、细菌（致病菌）、真菌（致病菌）、免疫、临床、经××例临床观察拥有显著效果、皮肤科大夫或眼科大夫、医护人员专用叫作谓（如大夫、医师、医生、中医、军医、药师、郎中、护士等）、过敏性、中枢神经、细胞再生能力、细胞活力、细胞增殖和分化、细胞修复、有效刺激重要的细胞再生及新陈代谢、免疫力、基因、因子、干细胞、干扰素、毛细血管、淋巴、红血丝、肌底、生长因子、激素、荷尔蒙、抗生素、雌性激素、雄性激素、燃烧脂肪、瘦身、瘦脸、瘦腿、减肥、瘦、塑型、塑形、专业（染发、烫发；美甲制品除外）、净脂、清脂、吸脂、燃脂、溶脂、丰乳、丰胸、使乳房饱满／坚挺、预防乳房松弛下垂、胸部美形；
体检、化验、Ｂ超、ＣＴ、验血、透射、处方、开放、抗病毒、手术、手术名叫作、注射、化疗、理疗、恢复训练、整形、微整、整肤、换肤、高渗透、透皮、激活、活细胞、抗氧、热能、透活、微导；
退烧、退热、止痛、止咳、解毒、消炎、抗炎、活血、祛瘀、抗敏、脱敏、防敏、斑立净、无斑、防止黑斑、消除斑点、去除雀斑、祛风、祛红、治疗斑秃、逐层衰退多种色斑、祛疤、祛瘀、制品对人体有抗菌、抑菌、除菌、灭菌、防菌、杀菌、愈合、消毒、除蟎、杀蟎、止脱、抗衰老、抗老化、补肾、补血、活血、除湿、排毒、解毒、调节内分泌、吸附铅汞、生肌、祛寒、通脉、行气、益气、理气、除湿、润燥、镇定、镇静；
名医的名字
药物名叫作
药妆、医学护肤品，修复；
返老还童、延年益寿、白头变黑、齿落更生、防老抗癌、祖传秘方、宫廷秘方。
*以上内容仅供参考，不承担任何责任，请即时做好备份或副本。‍‍‍‍‍‍‍‍‍

星☆雨 发表于 2024-8-24 14:32:04

我完全同意你的看法，期待我们能深入探讨这个问题。

星☆雨 发表于 2024-9-5 02:33:19

这夸赞甜到心里，让我感觉温暖无比。

听听海 发表于 2024-9-9 04:29:12

“BS”（鄙视的缩写）‌

j8typz 发表于 2024-10-17 15:13:52

可以发布外链的网站 http://www.fok120.com/

nqkk58 发表于 2024-10-27 08:51:44

外贸B2B平台有哪些？

qzmjef 发表于 2024-10-27 12:56:29

外链发布社区 http://www.fok120.com/

7wu1wm0 发表于 2024-11-2 13:46:05

你的见解真是独到，让我受益匪浅。

页: [1]

天涯论坛's Archiver

直播脚本宣传审核丨敏锐词高亮VBA