麻烦老师帮忙看看，为什么有时候不运行

zhgj007

batmanbbs 发表于 2023-8-12 00:54

老师好，您的代码比我调整后的，运行速度快多了。但是，运行完，文档还是老样子，是不是“Activate: .Undo”，位置有问题？

过客fppt

zhgj007 发表于 2023-8-12 09:10
老师你好，先谢谢你的帮助。代码运行时“Selection.Copy”，总是红色，运行不过去

我刚才修改了，并且运行测试完成了，请等待审核通过，这是运行后的效果

zhgj007

过客fppt 发表于 2023-8-12 09:30
我刚才修改了，并且运行测试完成了，请等待审核通过，这是运行后的效果

可能时那个文档的问题，换了原测试文档，没有问题。谢谢您的帮助。
这篇材料，高三学生订书，跟书商要的电子文档。

batmanbbs

zhgj007 发表于 2023-8-12 09:11
老师好，您的代码比我调整后的，运行速度快多了。但是，运行完，文档还是老样子，是不是“Activate: .Und ...

我测试没有问题啊，源码在此，你再测试一下

batmanbbs

过客fppt 发表于 2023-8-11 22:45
我也弄过类似的操作，复制一次两次还是可以的，如果让代码循环复制十几二十道题的答案到末端的话，会有一些 ...

一般情况下，不建议使用COPY、CUT、PASTE，因为这三个方法都是从剪贴板中写入或者读取，而这个过程都是需要时间的。如果还没有写入或读取完成就执行下一句代码就会造成出错，所以有一定的出错几率，而且COPY/CUT与PASTE之间代码越少，执行次数较多，出错可能就越大。

如果没有其他办法替代三个方法，为了避免这个问题，一般采取增加延时来解决。延时的时间需要根据运行代码的电脑而定，所以不太容易确定合适的值，只能自己不断测试，找到合适的延时时间。我的电脑比较慢，一般这类操作我会延时 50ms。

过客fppt

batmanbbs 发表于 2023-8-12 12:47
一般情况下，不建议使用COPY、CUT、PASTE，因为这三个方法都是从剪贴板中写入或者读取，而这个过程都是需 ...

感谢 batmanbbs 老师解惑

zhgj007

batmanbbs 发表于 2023-8-12 12:34
我测试没有问题啊，源码在此，你再测试一下

老师好，我复制代码后，运行时还是问题，我截了2个图，麻烦老师再给看看。
先提示问题“445”，点调试后“tempDoc.Content.FormattedText = myDoc.Content”为黄色。
E:\问题图片1、

zhgj007

batmanbbs 发表于 2023-8-12 12:34
我测试没有问题啊，源码在此，你再测试一下

老师好，运行后的问题图片可能没传好，重新传一下。
另外，运行一次，左边出一个文字文稿，并且按运行顺序排列

batmanbbs

zhgj007 发表于 2023-8-12 14:24
老师好，运行后的问题图片可能没传好，重新传一下。
另外，运行一次，左边出一个文字文稿，并且按运行顺 ...

加我Q84299244远程看一下吧。因为我一般情况不使用COPY、PASTE，所以采用的是赋值到一个临时文件，再赋值回来。因为代码出错，每次那个临时文件都没有关闭，所以会造成这个情况。

==========================

知道原因了，WORD和WPS之间的差异，你用的WPS，稍稍改一下