替换工作流程不清楚

tcdatongye

第一段

第二段

第三段

现在想给每段文本内容替换，用

Sub 替换()

For Each myph In ThisDocument.Paragraphs

  s =s + 1

Debug.Print "第" & s & "次未替换时myph.Range值 =" & myph.Range

myph.Range = s & myph.Range

Debug.Print "第" & s & "次替换后myph.Range值 =" & myph.Range

Next

End Sub

但是个死循环，部分结果如下：

第1次未替换时myph.Range值 =第一段

第1次替换后myph.Range值 =第二段

第2次未替换时myph.Range值 =1第一段

第2次替换后myph.Range值 =第二段

想问下为什么没实现每段替换？上面这种情况能解释下工作流程吗？

batmanbbs

整个段落（含段落符）的替换，不建议使用For Each，可以用for i=1 to 段落数 或者 干脆倒序（更加安全）

tcdatongye

batmanbbs 发表于 2023-7-13 13:25
整个段落（含段落符）的替换，不建议使用For Each，可以用for i=1 to 段落数 或者 干脆倒序（更加安全）

谢谢。就是想知道为什么会出现这个结果，很想知道它的执行流程。

batmanbbs

tcdatongye 发表于 2023-7-13 15:47
谢谢。就是想知道为什么会出现这个结果，很想知道它的执行流程。

因为每次修改段落（含有段落符），.Paragraphs集合会刷新

tcdatongye

batmanbbs 发表于 2023-7-13 18:41
因为每次修改段落（含有段落符），.Paragraphs集合会刷新

d=====(￣▽￣*)b