根据答案标记选项

413191246se

* 扬帆 朋友：既然 300 页的没问题，而 500 页的崩溃，我建议——打开文档后，以 页宽 形式显示，Word 标题栏上可能会显示“（无响应）”，但无妨，你应该再耐心等待一下，直到最终出现信息提示框“处理完毕！用时 XXX 秒！”字样。——它无响应，其实一直在处理，只要耐心等待一阵子就会 OK 的。论坛的“相见是缘8”朋友，有时会等待一个半小时，我相信，你的试题不会等这么长时间，所以，我还是建议，要耐心等待一阵子。
   
* 请先执行下面的小宏，再执行昨天的宏就可以了（我把“对”替换为 A，“错”替换为 B，这样，答案也是统一的形式，也不用改写程序）。

1. Sub a1009_RightError()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "(答案?)(对)", , , 1, , , , , , "\1A", 2
   
4.         .Execute "(答案?)(错)", , , 1, , , , , , "\1B", 2
   
5.     End With
   
6. End Sub

复制代码

常扬帆

413191246se 发表于 2022-10-9 11:33
* 扬帆 朋友：既然 300 页的没问题，而 500 页的崩溃，我建议——打开文档后，以 页宽 形式显示，Word 标题 ...

好的，衷心感谢！！！