微信聊天记录整理攻略

《如何快速整理微信聊天记录》

还有最后一部分需要手工处理的

有些地方有3个句号，有些地方有2个句号，那么我们可以通过两次连续替换操作：把两个相邻的句号替换为一个句号。来实现对文本的处理。如果是三个句号，那么在第一次的替换中，三个句号被处理成了两个句号，接下来在第二次的替换中，两个句号被替换成一个句号。

此处应该有更好的规则写法，但是目前水平还达不到。比如把一个以上的连续的句号替换成一个单独的句号。这个需要对正则表达式比较熟悉。那么在不熟悉的现在，我们只能先通过复制代码，重复执行一遍来进行处理。

识别文本特性：其他群友发言的部分，需要单独作为一个段落处理。而这些文本，正好又是加粗的，那么我们需要从加粗的部分自动换行处理。

自动换行，可以把加粗字体前面通过批量加上换行符^p来实现，那么问题就转换为，如何通过正则表达式，识别出加粗的字体，并在前面加上自动换行符。

同时群友发言的这一段需要引用标记。而word里面的引用标记在印象笔记里面也并不支持。印象笔记里面的引用标记，直接复制到简书里面也是丢失的。

那我们就需要在word里面用markdown语法进行标记，然后复制到简书里面，在简书里面设置为markdown编辑模式。

这个需求，在正则表达式的语境下翻译过来就是，使用环视功能识别出加粗文本所在的位置，然后使用正则表达式的修改文本的功能，在此处按照前述需求

①添加上word里面的换行符，以便在word编辑器中实现换行

②添加上Markdown的^p引用标记符号 >，以便在简书的Markdown编辑模式下实现引用效果。

井大回复这些讲话的时候会使用@，那么我们就需要把回复的内容前面加上“井底望天”四个字，所以需要把全部的@字符替换为【井底望天：@】，并且在吧这个回复的也进行分段处理，也就是在替换操作之后，需要在【井底望天：@】也加上一个换行符^p

Sub 批量替换艾特()

'

' 批量替换艾特 宏

' 把字符@替换为井底望天：@，并进行分段处理

'

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    With Selection.Find

        .Text = "@"

        .Replacement.Text = "^p井底望天：@"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchByte = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

在出差的路上，还有一部分没整理完。稍后会继续更新。