word vba 替换

请教，需要对数十万字的小说进行整理，想通过WORD VBA 进行处理。有一功能，比如查找（但系统原配功能不足，咱需要的是不等于某些字符的就找出来），算法应该是对文章中每一个字符进行比较，可单执行
For i = 1 To ActiveDocument.Characters.Count
If ActiveDocument.Characters(i) = "一" Then
    ActiveDocument.Characters(i) = "二"
就已经让系统吃不消了，就算能运行得结果出来，也很花时间。

效率远不如系统的替换，请问这个应该如何处理才好？是否应该像EXCEL一样，先把要比较的数据导出成一个数组，后面再把弄好的数组导入文章中？如果是，请问这个具体的导出、导入代码又如何写？谢谢！

__________________________