如何用vba逐字符遍历word文档？

在一些WORD文档的处理案例中，有时候需要逐字符遍历WORD文档的内容。

这时候可以使用如下的代码实现逐字符遍历WORD文档的内容。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Dim iEnd As Long
    Set oDoc = Word.ActiveDocument
    iEnd = oDoc.Range.End
    For i = 0 To iEnd
    Set oRng = oDoc.Range(i, i + 1)
    '***************************************
    '以下是要执行的代码
    '***************************************
    Next
End Sub