替换工作流程不清楚

tcdatongye · 发表于 2023-7-13 10:20

第一段

第二段

第三段

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

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

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

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

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

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

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

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

batmanbbs · 发表于 2023-7-13 13:25

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

tcdatongye · 发表于 2023-7-13 15:47

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

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

batmanbbs · 发表于 2023-7-13 18:41

本帖最后由 batmanbbs 于 2023-7-13 19:00 编辑

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

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

tcdatongye · 发表于 2023-7-14 08:39

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

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

		自动登录	找回密码
密码			免费注册

[求助] 替换工作流程不清楚