修改次序混乱不同的数量单位和重复的数量单位

相见是缘8 · 发表于 2022-9-22 08:14

sylun 发表于 2022-9-21 22:12
再次对代码进行更新，换了另一种对匹配进行循环比较的方法，对大约数等不能识别数量的匹配不作大小排序， ...

sylun 老师好！
真是怎样感谢你都不为过！你太好了！
老师，代码我今早在只有2页的“模拟附件”上测试了，详细核对，结果准确无误！大的“模拟文档”和“预处理文档”上，还没有测试，等有时间再测试。

相见是缘8 · 发表于 2022-9-23 05:55

sylun 发表于 2022-9-21 22:12
再次对代码进行更新，换了另一种对匹配进行循环比较的方法，对大约数等不能识别数量的匹配不作大小排序， ...

sylun 老师好！
昨晚，代码我在“模拟文档”和“预处理文档”上，也分别各测了2次，在“模拟文档”上，用时1小时28分钟左右（比上一个代码快了8分钟），在“预处理文档”上用时，与上一个代码差不多，也是28分钟左右。

老师，能否让这个代码再增加一个计时的语句，省得测试时要人守在这盯时间。

sylun · 发表于 2022-9-24 21:04

相见是缘8 发表于 2022-9-23 05:55
sylun 老师好！
昨晚，代码我在“模拟文档”和“预处理文档”上，也分别各测了2次，在“模拟文档”上， ...

计时语句比较简单，可通过Timer函数求得，论坛有不少，楼主可搜索一下，我就不修改了。

413191246se · 发表于 2022-9-24 23:26

相见：下面的《宏运行时间》的宏中，你看看 sylun 老师的宏是不是叫“test5”，如果是就不用改了（否则，把“test5”改为 sylun 老师的宏的名称即可），第一次执行《a_MacroTime》宏后，第二次及以后想执行的话就按 F3 热键即可。

Sub a_MacroTime()
'计算宏运行所用时间
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyF3), KeyCategory:=wdKeyCategoryMacro, Command:="a_MacroTime"
Dim l As Single
l = Timer
test5
MsgBox "排版完毕！用时 " & Timer - l & " 秒！", 0 + 48
End Sub

复制代码

相见是缘8 · 发表于 2022-9-25 06:16

sylun 发表于 2022-9-24 21:04
计时语句比较简单，可通过Timer函数求得，论坛有不少，楼主可搜索一下，我就不修改了。

sylun 老师好！

代码中增加一个计时的语句，我是想在你的代码运行结束时，弹出的这个提示框中，还有代码运行所花的时间显示。可我水平不够，加不了！想求老师加一个！

相见是缘8 · 发表于 2022-9-25 06:20

413191246se 发表于 2022-9-24 23:26
相见：下面的《宏运行时间》的宏中，你看看 sylun 老师的宏是不是叫“test5”，如果是就不用改了（否则，把 ...

413191246se 老师好！
这个代码，放在哪个具体的位置？要怎样操作？我运行时，弹出提示框：编译错误：子过程或函数未定义。

413191246se · 发表于 2022-9-25 10:49

相见：请将《a_MacroTime》宏复制到 VBE 中任何位置即可（但注意：不要放到别的子过程里面去！）！然后，看看 sylun 老师的主程序过程名是不是叫“test5”，如果是，你就直接执行一次《a_MacroTime》宏就行了，然后，如果第二遍执行，直接按 F3 热键即可；如果 sylun 老师的主程序过程名是“test6”，你就把《a_MacroTime》宏里面的“test5”改为“test6”即可。

相见是缘8 · 发表于 2022-9-25 19:18

413191246se 发表于 2022-9-25 10:49
相见：请将《a_MacroTime》宏复制到 VBE 中任何位置即可（但注意：不要放到别的子过程里面去！）！然后，看 ...

413191246se老师好！

这个代码，按你所教，放在哪个位置都试了，我运行时，还是弹出提示框：编译错误：子过程或函数未定义。

413191246se · 发表于 2022-9-25 22:58

本帖最后由 413191246se 于 2022-9-25 23:00 编辑

相见：可能是这样。sylun 老师的代码，你是放在 ThisDocument 模块中的。请把这个《a_MacroTime》宏也放在 ThisDocument 的模块中，和 sylun 老师的代码放在一起（就是放在 sylun 老师的代码的下面即可）。然后假设 sylun 老师的代码宏的名字，假设叫 Main（即 Sub Main())，则请复制一下这个单词“Main”，然后，到《a_MacroTime》宏里面把倒数第 3 行代码“test5”覆盖后，第一次运行《a_MacroTime》后，如果第二次再执行的话就请按热键 F3 就可以了（不好意思，我忘了你的电脑有点儿特殊，不能把代码放在标准模块 NewMacros 中）。

相见是缘8 · 发表于 2022-9-26 07:02

413191246se 发表于 2022-9-25 22:58
相见：可能是这样。sylun 老师的代码，你是放在 ThisDocument 模块中的。请把这个《a_MacroTime》宏也放在 ...

413191246se 老师好！

代码，放在 ThisDocument 中，终于可以了。感谢！感谢！

老师，不知你发现没有，这个我在同一个“模拟附件”上，而它每次显示的时间都不同，从1秒多至 6钞多，这个是啥原因？

另外，sylun 老师这几天都没有上线，老师你有不有办法把你这个代码，放到sylun 老师的代码中，让它在同一个“提示框”中（即我在 85楼的图片中所示）显示？

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

[求助] 修改次序混乱不同的数量单位和重复的数量单位