本篇文章给大家谈谈QQ聊天记录格式化的word宏第二版，以及qq聊天记录文件格式的知识点，同时本文还将给你拓展QQ快速查找电脑QQ聊天记录的方法、qq聊天记录删除了怎么恢复-qq漫游记录恢复方法、QQ

本篇文章给大家谈谈QQ聊天记录格式化的word宏第二版，以及qq聊天记录文件格式的知识点，同时本文还将给你拓展QQ快速查找电脑QQ聊天记录的方法、qq聊天记录删除了怎么恢复-qq漫游记录恢复方法、QQ聊天记录备份助手 v1.0——搜索、备份、恢复QQ聊天记录文件，重装系统必备、qq聊天记录如何恢复等相关知识，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• QQ聊天记录格式化的word宏第二版（qq聊天记录文件格式）
• QQ快速查找电脑QQ聊天记录的方法
• qq聊天记录删除了怎么恢复-qq漫游记录恢复方法
• QQ聊天记录备份助手 v1.0——搜索、备份、恢复QQ聊天记录文件，重装系统必备
• qq聊天记录如何恢复

QQ聊天记录格式化的word宏第二版（qq聊天记录文件格式）

第二版功能更强大，可以设置多个人为不同颜色

Sub QQ聊天记录格式整理v2()
''QQ2010版聊天记录处理
''根据各自发言 的QQ名，并根据文档开头的发言人名称颜色，设置文档为相应的颜色
Dim ps As Paragraph
Dim s As Paragraph
Dim allps As Paragraphs
Set allps = ActiveDocument.Paragraphs
 
Dim sample As Paragraph

Dim users()
Dim colors()

Dim color
color = wdColorBlack
index = 1
''遍历文档开头各人QQ名，保存各人发言颜色
For Each ps In allps
    If Left(ps.Range.text, 3) = "===" Then
        index = index + 1
        Exit For
    End If
    Dim t As String
    t = ActiveDocument.Paragraphs(index).Range.text
    ReDim Preserve users(index)
    ReDim Preserve colors(index)
    users(index) = Left(t, Len(t) - 1)
    colors(index) = ActiveDocument.Paragraphs(index).Range.Font.color
    index = index + 1
Next

''Call 删除所有qq号
''1：整体变换网页换行^1与word中回车^p
''Call 网页换行改成回车

''2：老师姓名加红
i = 1
For Each ps In allps
    If i < index Then
        i = i + 1
    Else
        i = i + 1
        ''没有时间，则表示为QQ发言人行
        ps_len = Len(ps.Range.text)
        If ps_len > 8 Then
            text = Mid(ps.Range.text, ps_len - 7, 7)
        Else
            text = Left(ps.Range.text, ps_len - 1)
        End If
        If text Like "#:##:##" Then
            ''这里判断为发言人、时间的特殊行
            For color_index = 1 To UBound(users)
                If Left(ps.Range.text, Len(users(color_index))) = users(color_index) Then
                    color = colors(color_index)
                    Exit For
                End If
            Next
        End If
        ps.Range.Font.color = color
        
    End If
    
    
Next

End Sub

Sub QQ聊天记录格式整理_老师发言红色()
''QQ2010版聊天记录处理

Dim ps As Paragraph
Dim s As Paragraph
Dim allps As Paragraphs
Set allps = ActiveDocument.Paragraphs
 

Call 删除所有qq号

''1：整体变换网页换行^1与word中回车^p
Call 网页换行改成回车

''2：老师姓名加红

''老师为发言人段标识符
Dim isTeacher
isTeacher = False
''道友为发言人标识符
Dim isSayer
isSayer = False
''普通段落标识符
Dim isParag
isParag = True

For Each ps In allps
    With ps.Range.Find
        .text = "<[0-9]{1,2}:[0-9]{2}:[0-9]{2}>"
        .Forward = True
        .MatchWildcards = True
        .Execute
        
        If .Found = True Then
            ''这种格式为发言人格式段落
            isSayer = True
            isTeacher = False
            isParag = False
            ''以12:23:56这样的时间格式结尾
            ps.Range.Select
            
            If Left(ps.Range.text, Len(t)) = t Then
                ''老师为发言人
                isTeacher = True
            End If
        Else
            ''普通段落
            isSayer = False
            isParag = True
        End If
    End With ''查找12:23:56这样的时间格式结尾
    
    If isTeacher = True Then
        ps.Range.Font.color = wdColorRed
    ElseIf isSayer = True Then
        ps.Range.Font.color = wdColorBlue
    End If
Next

''3：时间字体变灰
Call 时间字体变成灰色
End Sub

Sub 网页换行改成回车()
''
'' 第一步
'' 网页换行改成回车
''
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "^l"
        .Replacement.text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 时间字体变成灰色()
''
'' 时间字体变成灰色 Macro
'' 12:26:36是时间格式，通配符为<[0-9]{2}:[0-9]{2}:[0-9]{2}>，字体颜色改成灰色
''
    ActiveWindow.ActivePane.VerticalPercentScrolled = 35
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "<[0-9]{1,2}:[0-9]{2}:[0-9]{2}>"
        .Replacement.Font.color = wdColorGray50
        
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub 删除所有qq号()
    ActiveWindow.ActivePane.VerticalPercentScrolled = 35
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "\([0-9]{5,10}\)"
        .Replacement.Font.color = wdColorGray50
        
        .Replacement.text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

''word宏结束

QQ快速查找电脑QQ聊天记录的方法

      相信许多伙伴还不了解如何快速查找电脑QQ聊天记录的简单操作，不过没关系，下面就分享了QQ快速查找电脑QQ聊天记录的方法，希望感兴趣的朋友都来共同学习哦。

      QQ快速查找电脑QQ聊天记录的方法

      首先打开电脑上的QQ，输入号码和密码进行登陆。

      在已登录的QQ页面，点击上部的时钟图标，然后会进入聊天界面。在聊天界面中有和你聊天的所有人的记录，找到自己想找的哪一位，然后双击打开聊天对话框。

      这就是如何快速查找电脑QQ聊天记录?快速查找电脑QQ聊天记录的方法的全部内容了，希望以上内容对小伙伴们有所帮助。

qq聊天记录删除了怎么恢复-qq漫游记录恢复方法

qq聊天记录不小心删除了，很多用户开启了漫游功能之后，可以直接恢复，但是没看的用户只能用其它方法恢复了，想要恢复的用户快点来一起看看吧。

qq聊天记录删除了怎么恢复

方法一：漫游记录恢复法

很多人可能不清楚，QQ其实有自带聊天记录漫游功能，我在发现误删了QQ聊天记录之后可以第一时间在漫游记录里查看。

1.首先打开需要恢复聊天记录的好友聊天界面。

2.接着点击右上角的人像。

3.进入界面后点击“聊天记录”选项。

4.接着在右上角我们可以看到漫游记录的选项，点击即可。

5.然后我们可以同步漫游聊天记录，这样误删的QQ聊天记录就可以恢复啦。

方法二：利用文件夹：

如果对方也把QQ聊天记录删除了，又该怎么办呢?那我们就利用第二种方法。登录你的QQ，点击系统设置选项，再从系统设置中找到“文件管理”选项。

一般来说，QQ聊天记录的保存路径是：X:UsersCCAVDocumentsTencent

Files你的QQ号。(如果用户使用了搬家软件，那路径可能是：D:UsersCCAVDocumentsTencent

Files你的QQ号)找到保存路径后，打开这个路径，选择你QQ号命名的文件夹然后打开它。

打开后，查找“Misc.db”，“Msg2.0.db”，“Msg3.0.db”这三个文件，如果有，则表示可以在历史记录中查看消息，如果没有这三个文件夹，就去电脑回收站查找，然后把它们还原，再登陆QQ，你的消息记录就找回来了。

注意!如果用户删除QQ聊天记录的时候是在QQ聊天界面中的历史记录中直接删除的，该方法则无效。

方法三：向朋友请求帮助：

相信我们大家都知道QQ聊天记录会在双方的电脑上保留着， 你电脑上的删除了，

对方的电脑上可能还保留着。所以假如你和某个朋友聊天记录一不小心被删除了，

你可以向你的朋友请求帮助，登陆QQ，找到你那个朋友让他把聊天记录导出一份给你。相信这是最为快速方便的一种方法了。

方法四：数据软件恢复

首先打开手机浏览器或应用宝，查找手机数据恢复精灵，将其安装在手机上。

运行软件，界面上显示了9个功能块，选择‘QQ恢复’功能即可。

软件正在对数据进行扫描，扫描完成后，选中数据，点击恢复按钮即可。

QQ聊天记录备份助手 v1.0——搜索、备份、恢复QQ聊天记录文件，重装系统必备

项目地址

https://github.com/guoyaohua/QQBackUp

开发环境

Netbean

JAVA

功能描述

1. 自动搜索硬盘中的QQ聊天记录文件
2. 可选择的备份QQ数据记录
3. 还原QQ数据记录

系统截图

1.程序安装

2.主界面

3.数据记录备份

4.使用帮助

5.备份的数据

qq聊天记录如何恢复

qq聊天记录不小心删除了，很多用户开启了漫游功能之后，可以直接恢复，但是没看的用户只能用其它方法恢复了，想要恢复的用户快点来一起看看吧。

方法一：漫游记录恢复法

1.首先打开需要恢复聊天记录的好友聊天界面。

2.接着点击右上角的人像。

3.进入界面后点击“聊天记录”选项。

4.接着在右上角我们可以看到漫游记录的选项，点击即可。

5.然后可以同步漫游聊天记录即可。

方法二：利用文件夹：

登录你的QQ，点击系统设置选项，再从系统设置中找到“文件管理”选项。

一般来说，QQ聊天记录的保存路径是：X:UsersCCAVDocumentsTencent Files你的QQ号。(如果用户使用了搬家软件，那路径可能是：D:UsersCCAVDocumentsTencent Files你的QQ号)找到保存路径后，打开这个路径，选择你QQ号命名的文件夹然后打开它。

打开后，查找“Misc.db”，“Msg2.0.db”，“Msg3.0.db”这三个文件，如果有，则表示可以在历史记录中查看消息，如果没有这三个文件夹，就去电脑回收站查找，然后把它们还原，再登陆QQ，你的消息记录就找回来了。

注意!如果用户删除QQ聊天记录的时候是在QQ聊天界面中的历史记录中直接删除的，该方法则无效。

方法三：向朋友请求帮助：

登陆QQ，找到你那个朋友让他把聊天记录导出一份给你。

方法四：数据软件恢复

首先打开手机浏览器或应用宝，查找手机数据恢复精灵，将其安装在手机上。

运行软件，界面上显示了9个功能块，选择‘QQ恢复’功能即可。

软件正在对数据进行扫描，扫描完成后，选中数据，点击恢复按钮即可。

以上就是云骑士为各位用户带来的qq聊天记录删除了怎么恢复详细内容了，想看更多相关文章欢迎您收藏云骑士。

关于QQ聊天记录格式化的word宏第二版和qq聊天记录文件格式的介绍现已完结，谢谢您的耐心阅读，如果想了解更多关于QQ快速查找电脑QQ聊天记录的方法、qq聊天记录删除了怎么恢复-qq漫游记录恢复方法、QQ聊天记录备份助手 v1.0——搜索、备份、恢复QQ聊天记录文件，重装系统必备、qq聊天记录如何恢复的相关知识，请在本站寻找。

本文标签：

• QQ聊天记录格式化
• word宏第二版
• qq聊天记录文件格式
• 宏操作教程