vba - 如何使用 VBA 迭代 Word 中选定文本中的每个字符？

Question

我试图在一个循环中遍历选定的文本(直到完成)并按顺序检索每个字符。

Word 中的对象看起来与 Excel 中的对象大不相同，在 Excel 中我可以很容易地做到这一点。任何人都有几行

1. 捕获所选文本的长度。
2. 遍历它并一次获取每个字符，直到我到达所选文本中的最后一个字符。

Answer 1

我对 Word 的编码不多，它很困惑，但我认为您也会看到一些相似之处。下面是一些执行您要求的代码，即将所选文本中的字符数打印到即时窗口，然后打印每个字符:

Sub CountWordStuff()
Dim char As Range

With Selection
    Debug.Print "Character count: "; .Characters.Count
    Debug.Print "Words - kind of: "; .Words.Count; ""

    For Each char In Selection.Characters
        Debug.Print char.Characters(1)
    Next char
End With
End Sub

我还输入了一个Words 计数。看起来 Words 包括段落分隔符，可能还有其他项目。