Word招标文件审查技巧:一键高亮“无效、废标、资格”等敏感关键词
一、这个方法能实现什么效果?
二、操作步骤


Sub 一次性黄色突出显示招标关键词()Dim keywords As VariantDim key As VariantDim rng As RangeDim story As Range'需要查找的关键词,可根据实际需要自行增减keywords = Array("无效", "承诺", "资格", "声明", "废标", "否决", "响应", "偏离", "实质性")'遍历正文、页眉页脚、文本框等区域For Each story In ActiveDocument.StoryRangesDoFor Each key In keywordsSet rng = story.DuplicateWith rng.Find.ClearFormatting.Text = key.Forward = True.Wrap = wdFindStop.MatchCase = False.MatchWholeWord = FalseDo While .Executerng.HighlightColorIndex = wdYellowrng.Collapse wdCollapseEndLoopEnd WithNext keySet story = story.NextStoryRangeLoop Until story Is NothingNext storyMsgBox "关键词已用黄色突出显示完成!"End Sub

keywords = Array("无效", "承诺", "资格", "声明", "废标", "否决", "响应", "偏离", "实质性")
keywords = Array("无效", "承诺", "资格", "声明", "废标", "否决", "响应", "偏离", "实质性", "澄清", "补正", "重大偏差", "实质性响应", "不予受理")
七、建议保存到Normal.dotm,方便长期使用

八、使用前的小提醒
九、适用场景
-
招标文件重点条款审查; -
投标文件响应情况核查; -
合同风险词筛查; -
法律文书关键词标注; -
制度文件敏感词检查; -
评审报告重点词定位。
夜雨聆风