迭代Word文档中的每个字符

Question

我需要迭代任何给定word文档中的每个字符。我对对象模型有些熟悉，但无法弄清楚如何细化。

任何方法都可行（宏，互操作，AddIn或OLE嵌入）。

Answer 1

有什么问题

For Each ch In ActiveDocument.Characters

Answer 2

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

Sub Temp（）

'选择文档中的第一个字符 Selection.HomeKey单位：= wdStory

'主循环从这里开始

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

'现在你选择了1个角色。在此处插入您的代码，无论您想对所选文本执行什么操作

'现在'几乎'按右箭头取消选择 Selection.MoveRight单位：= wdCharacter，Count：= 1

'现在重复主循环。请记住，此代码段还没有退出子句;进一步编码它会锁定你的话语;）

'快乐的进步！

End Sub