运行宏时，提示“编译错误:缺少End With”，该咋办？

cutebear1978 · 发表于 2023-5-26 16:18

Word里面运行宏时，提示：“编译错误：缺少End With”，如下图所示：
编译错误：缺少end with.jpg

宏代码如下txt文件所示，就是词语替换，我查找了下，好像所有语句都有End with，但是运行宏的时候，总有这个提示，导致宏无法正常运行。该咋办？

YMR中文词语批量替换VBA代码.rar (2.42 KB, 下载次数: 8)
感谢!

+痴鈊Ю绝怼+ · 发表于 2023-5-26 16:55

1997&1998行有两个 With Selection.Find

蜀中草莽 · 发表于 2023-5-26 17:58

#在这里快速回复#With Selection.Find With Selection.Find .Text = "无名" .Replacement.Text = "无明" 这里多了一句 with selection.find

cutebear1978 · 发表于 2023-5-26 18:32

+痴鈊Ю绝怼+ 发表于 2023-5-26 16:55
1997&1998行有两个 With Selection.Find

的确如此。非常感谢！

请问您是怎样在这么多行代码里面找到错误的？有没有什么方法可以自动迅速找到错误、不需要人工用肉眼去一个个看？

cutebear1978 · 发表于 2023-5-27 16:38

蜀中草莽发表于 2023-5-26 17:58
#在这里快速回复#With Selection.Find With Selection.Find .Text = "无名" ...

非常感谢！

请问您是怎样在这么多行代码里面找到错误的？有没有什么方法可以自动迅速找到错误、不需要人工用肉眼去一个个看？

+痴鈊Ю绝怼+ · 发表于 2023-5-29 07:56

cutebear1978 发表于 2023-5-26 18:32
的确如此。非常感谢！

请问您是怎样在这么多行代码里面找到错误的？有没有什么方法可以自动迅速找到错 ...

贴EXCEL里套个countif公式即可

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

[求助] 运行宏时，提示“编译错误:缺少End With”，该咋办？