领导是坏人，对于我这个小文员布置了如此大的工作量，求助各位大神【word批量查找...

juliaying66

各位大神求助啊
【诉求原有】目前有10000到题目需要和8本教材做标注匹配，工作量太大 求助各位大神
【已有资料】10000道题目的文档（已对10000道题目的核心考点做了关键词归纳）， 和8本教材的WORD版本
【需要达到效果】
在教材中标注出对应的题目，可以让学员和老师知道教材中哪些地方属于经常出题点。具体参见附件“运行宏后生成的文件”

另外由于题目的关键词存在有可能无法和教材一一对应的情况，所以可能不容易立马找出，所以希望对于这些有问题的题目可以标注出来 便于后期手动调整。

【备注】如果该方案最后形式很难实现，想请问各位大神，还可以利用哪些工具实现最终的目的，（就是让大家知道教材中哪是重点），还请各位大神指点

约定的童话

昨天刚弄了一道word的题，查不到资料，愣是一个个试了出来，花了三个多小时
Sub 添加重点()
    Application.ScreenUpdating = False
    Dim i, arr, Word As Object
    Set Word = VBA.CreateObject("word.application")
    Word.Visible = 0
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        Set MyWord = Word.Documents.Open(ThisWorkbook.Path & "\" & "教材原始文件.doc")
        Word.Selection.Find.ClearFormatting '全选文字
        With Word.Selection.Find '开启查找
            .Text = arr(i, 1) '输入查找关键词
        End With
        Word.Selection.Find.Execute '选择关键词
        Word.Selection.Comments.Add Range:=Word.Selection.Range '打开批注框
        Word.Selection.TypeText Text:=arr(i, 2) '添加
        Word.Documents.Close True
    Next
    Word.Application.Quit
    Set MyWord = Nothing
    MsgBox "添加完毕！"
End Sub

约定的童话

问个问题，10000道题目如果批量添加，如何匹配文件名呢？

ming0018

问题一：10000道题目的文档　是放在excel上的二维表吗？
问题二：8本教材的WORD，是8个不动的word文档吗？

juliaying66

ming0018 发表于 2020-4-17 09:52
问题一：10000道题目的文档　是放在excel上的二维表吗？
问题二：8本教材的WORD，是8个不动的word文档吗？ ...

10000道题目是在EXCEL中，但是后期应该会有增加
8本教材是不动的WORD版

juliaying66

约定的童话 发表于 2020-4-17 08:06
昨天刚弄了一道word的题，查不到资料，愣是一个个试了出来，花了三个多小时

你好 要是查找不到的是否可以在EXCEL中显示方便后期手动调整

juliaying66

约定的童话 发表于 2020-4-17 08:14
问个问题，10000道题目如果批量添加，如何匹配文件名呢？

什么意思 没看懂，我的10000道题目可以放在一个文档里

走过路过嫑错过

完全懂不得

juliaying66

约定的童话 发表于 2020-4-17 08:06
昨天刚弄了一道word的题，查不到资料，愣是一个个试了出来，花了三个多小时

怎么才能获取代码呢