关于查找“行”的问题

过客fppt

wytsxh 发表于 2024-8-11 09:07
多谢老师鼓励！之前还曾想要放弃，现在想来实在是惭愧！
       在使用老师的代码中，我无意中发 ...

If 汉字数量(.Range.text) <= 1 Then

要修复的话，把这里＜=1改成=1

wytsxh

过客fppt 发表于 2024-8-11 10:11
If 汉字数量(.Range.text)

      老师辛苦了！
      修改之后，现在真的是堪称完美了！宏功能真是太不可思议了！
      这几天在您和“413191246se”老师的耐心指导下，我才意识到自己以前干了大量没有意义的重复劳动！现在我利用“宏录制”功能，把以前干的好多操作全录进word了，而且测试以后，全都可以自动操作，实在太爽了！
      在此再次多谢您和“413191246se”老师，祝工作顺利，身体安康！

wytsxh

413191246se 发表于 2024-8-10 21:40
* 楼主，以后再打开另一个文档时，如果仍然需要这种功能，只须：
* 点击“开发工具”选项卡——“宏”—— ...

      老师好！
      按照步骤把您和“过客”老师编写的代码都设置了快捷键，真是一键秒杀啊！多谢老师！
      

过客fppt

wytsxh 发表于 2024-8-11 10:30
老师辛苦了！
      修改之后，现在真的是堪称完美了！宏功能真是太不可思议了！
      这几天在 ...

对于录制好的宏，你也可以用Call的方法，用一个宏执行其他宏，这样可以更好的实现自动化，以下是例子:

【用VBA编写自定义函数，结合通配符，批量排版Word文档的标题和字体,批量删除空行等 - CSDN App】http://t.csdnimg.cn/jFpob

wytsxh

过客fppt 发表于 2024-8-11 15:53
对于录制好的宏，你也可以用Call的方法，用一个宏执行其他宏，这样可以更好的实现自动化，以下是例子:

...

多谢老师指导！
这个似乎有些复杂，我慢慢学习吧！