word和wps运行，都提示：运行时错误 9 下标越界？

msg = i & "、" & Split(cmnt.Contact.Name, """")(3) & "于 " & cmnt.Date & " 作了批注："


【 在 callmebbser 的大作中提到: 】
: 打开附件中的提取批注.docm文件，移动文档末尾，有个按钮，点击按钮，就可以提取文
: 档的所有批注，并写在文档（这个按钮）末尾。支持富文本批注。
: 按钮所执行的宏（VBA代码），可以见附件image1.png。
: ...................
--
FROM 220.187.189.*