word合并批注到一个文档，如何准确定位到批注引用位置？

淡颜矜墨

1. Sub addCm(fn,newn)
   
2. 
   
3. Set wdApp = CreateObject("word.application")
   
4. On Error Resume Next
   
5. Set myWDoc = wdApp.Documents.Open(Chr(34)&fn&Chr(34))
   
6. wdApp.Visible = false
   
7. 
   
8. wdApp.ScreenUpdating = False
   
9. rows = myWDoc.Comments.Count
   
10. If rows = 0 Then
    
11. myWDoc.Close
    
12. Exit Sub
    
13. End If
    
14. 
    
15. ReDim commentsArray(rows, 5)
    
16. For i = 1 To rows
    
17. commentsArray(i, 1) = myWDoc.Comments(i).Scope.Information(3) '页码
    
18. commentsArray(i, 2) = myWDoc.Comments(i).Scope.Information(10) '行号
    
19. commentsArray(i, 3) = myWDoc.Comments(i).Scope '批注引用内容
    
20. commentsArray(i, 4) = myWDoc.Comments(i).Range '批注内容
    
21. commentsArray(i, 5) = myWDoc.Comments(i).Author '作者
    
22. Next
    
23. 
    
24. myWDoc.Close
    
25. Set myWDoc = Nothing
    
26. Set myWDoc = wdApp.Documents.Open(Chr(34)&newn&Chr(34))
    
27. myWDoc.Activate
    
28. 
    
29. For i = 1 To rows
    
30. wdApp.Selection.GoTo 1, 1, commentsArray(i, 1)
    
31. wdApp.Selection.GoTo 3, 2, commentsArray(i, 2)-1
    
32. 
    
33. wdApp.Selection.Find.ClearFormatting
    
34. With wdApp.Selection.Find
    
35. .Text = commentsArray(i, 3)
    
36. .Replacement.Text = ""
    
37. .Forward = True
    
38. .Wrap = wdFindAsk
    
39. .Wrap = wdFindContinue
    
40. .Format = False
    
41. .MatchCase = False
    
42. .MatchWholeWord = False
    
43. .MatchKashida = False
    
44. .MatchDiacritics = False
    
45. .MatchAlefHamza = False
    
46. .MatchControl = False
    
47. .MatchByte = True
    
48. .MatchWildcards = False
    
49. .MatchSoundsLike = False
    
50. .MatchAllWordForms = False
    
51. End With
    
52. wdApp.Selection.Find.Execute
    
53. Set myRange = wdApp.Selection.Range
    
54. wdApp.Selection.Comments.Add myRange,commentsArray(i, 4)
    
55. Next
    
56. 
    
57. wdApp.ScreenUpdating = True
    
58. myWDoc.Save
    
59. myWDoc.Close
    
60. wdApp.Quit
    
61. End Sub

复制代码

本意：合并多个word文档的批注到一个word文档中，目前存在的问题是：
通过获取批注的页码和行号，在包含表格的页上获取的行号，再使用 goto 方法定位行时出错，他们从上往下数的行数不一致；导致定位不准；
commentsArray(i, 1) = myWDoc.Comments(i).Scope.Information(3)   '页码
commentsArray(i, 2) = myWDoc.Comments(i).Scope.Information(10)    '行号

请问怎样准确定位到批注位置，便于查找并合并批注；
详细代码和素材见附件！