摘要： ①第一种代码 On Error GoTo ErrHandle
Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
For Each iChar In myRange.Characters
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Sele...
①第一种代码
On Error GoTo ErrHandle
Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
For Each iChar In myRange.Characters
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Selection.Font.ColorIndex = 2 Then MsgBox iChar
Next
Exit Sub
ErrHandle:
MsgBox "Error number: " Str$(Err) Chr(13) Error$(Err), 48, m_Title
②第二种代码
如何解决Word文档打印后乱码的问题
如何解决Word文档打印后乱码的问题 当把Word文档打印的时候，单击打印后，打印出来的文档却是乱码的，这种问题其实很多人都遇到过，有的时候是因为Word文档本身就是乱码的，所以打印出来自然也是乱码的，有的时候是因为打印机设置的问题，好好的Word文档打印出来就乱码了。遇到这种情况，我们应该如何解决呢? 情况一：Word文档本身就是乱码的 如果Word文档本身就是乱码的，那么打印出来的文档也自然是乱码的。Word文档乱码怎么办呢?这种时候我们只要对Word文档进行修复就可以了，我们可以去下载Word文档乱
Dim n As Integer, Info As String
With Selection.Find
.Parent.HomeKey wdStory
.ClearFormatting
.Font.Color = wdColorBlue
Do While .Execute
n = n 1
Info = Info & n & vbTab & .Parent & vbCrLf '提取找到的文本
.Parent.Delete '删除找到的文本(蓝色字体)
Loop
End With
If Info = "" Then MsgBox "未找到指定颜色字体" Else Documents.Add.Content = Info
怎么用手机打开Word文档 WPS Office让手机移动办公
怎么用手机打开Word文档 WPS Office让手机移动办公 如今智能手机基本都成为了人手一部，手机的性能、扩展、存储能力等都有了很大的提高，随着智能手机的发展，手机的功能以及作用也在不断扩展，比如高像素摄像头已经可以媲美卡片相机，另外超大手机存储空间也可以当做U盘使用，身边不少朋友都将手机当做了U盘，经常在一些办公Word文档放在手机中，有时候一些室友会发出这样一个疑问，手机是否也可以打开编辑Word文档呢？网上查找了下资料，还真可以，只需要在手机中安装一个WPS Office手机版软件即可，以下小编
