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

Question

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

Word中的对象看起来与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包括段落,也可能包括其他项目.