VBA-Word：在文档中的所有日期之前添加换行符

Question

我有一个聊天记录，有人粘贴到MS Word中并提供给我，但是在粘贴时，聊天之间的所有回车符都被删除了。每次聊天均以“ MM / DD / YY”格式的日期开始（月份只能为1个字符）。

我只能访问VBA，并且需要在每次出现日期之前插入新行，以使此文档更易理解。

Answer 1

您可以在不使用VBA的情况下使用查找和替换来执行此操作。确保选择了“使用通配符”。

• 查找：([0-9/]{7,8})。这匹配7或8个出现的单个数字或正斜杠。 ()捕获要替换的文本。
• 替换为：^l\1。取而代之的是换行符和捕获的文本。

如果除日期以外还有数字数据，则可能需要使用查找字符串([0-9]{1,2}/[0-9]{2}/[0-9]{2})更加具体。