vba - 迭代 Word 文档中的每个字符

Question

我需要迭代任何给定 word 文档中的每个字符。我对对象模型有些熟悉，但不知道如何获得这种粒度。

任何方法都可以（宏、互操作、外接程序或 OLE 嵌入）。

Answer 1

出什么问题了

For Each ch In ActiveDocument.Characters

?

Answer 2

一种手动方法是这样的：我确信它适用于“普通”文档，只要光标可以单独使用“右箭头键”在整个文档中移动。

子温度（）

'选择文档中的第一个字符 Selection.HomeKey Unit:=wdStory

'主循环从这里开始

'将光标 1 个字符向右移动，同时 '选择' (Extend:=WdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

'现在您选择了 1 个字符。在此处插入您的代码，无论您想对所选文本做什么

'现在'实际上'按右箭头取消选择 Selection.MoveRight Unit:=wdCharacter, Count:=1

'现在重复主循环。请记住，此代码片段还没有退出子句；通过进一步编码，它会锁定你的 Word ;)

'前进快乐！

结束子