主题：如何利用“词库”表给WORD加批注？

 打开WORD后去“词库”表的英文列查找与WORD内容相同的单词或短语并在WORD中把中文批注出来。例如：在WORD中碰到computer单词则批注为计算机。

我上传了例子，老师帮忙写一小段程序，小弟研究一下。WORD文件见附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.rar

Dim app As New MSWord.Application
try
    Dim fileName = ProjectPath & "待批注文件.docx"
    Dim doc As object = app.Documents.Open(fileName)
    For Each dr As DataRow In DataTables("词库").Select("", "英文 desc")
       
        Dim count = Doc.Characters.Count
        Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
        rng.Find.ClearFormatting()
        rng.Find.Forward = True
        rng.Find.Text = dr("英文")
       
        rng.Find.Execute()
       
        Do While rng.Find.Found = True
            rng.Comments.Add(Range:=rng,Text:=dr("中文"))
            'app.Selection.TypeText(Text:=dr("中文"))
            rng.Find.Execute()
           
        Loop
       
       
    Next
   
    app.visible = True
   
   
catch ex As exception
    msgbox(ex.message)
finally
    'app.Quit
End try