vba判断word文字颜色是否为蓝色
发布时间：2023-12-13 10:21:52
标签：vba判断word文字颜色是否为蓝色
①第一种代码
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
②第二种代码
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
0
投稿猜你喜欢
相信很多使用N卡的小伙伴都喜欢在Nvidia控制面板内修改并优化显卡设置，但最近有不少小伙伴反应在Nvidia控制面板中找不到首选图形处理器- 文章详细介绍excel隐藏对象内容的两种方法，通过excel选项设置和使用快捷键ctrl +6实现。图表、文本框、控件、图形等等都
- 微软公司目前已经发布Windows 10 Build 10240.17643版，该版本属于Windows 10 RTM版的最新修复版，下文小
- XP系统网络连接错误711的原因是什么?在xp系统操作中，经常会遇到宽带连接错误的情况，错误691是比较常见的，而错误711想必遇到的比较少
- 现在很多用户在win8系统电脑使用U盘结束后为贪图方便，直接从电脑上拔下来，这种处理U盘的方式很容易导致U盘损坏或者数据丢失，造成一些不必要
- 昨天，大家迎来了iOS 13公测版Beta 2，今天苹果又给大家推送了iOS 12.4开发者预览版Beta 6系统更新。iOS12.4 be
- SmartFTP.exe - SmartFTP进程简介进程文件： SmartFTP or SmartFTP.exe 进程名称： SmartF
- win10 continuum模式是什么?下文将为大家介绍windows10 continuum模式功能。Windows10中有一项专门为混
- word表格中怎么制作下拉菜单？word表格中想要制作一个下拉菜单，该怎么制作呢？下面我们就来看看详细的情况，很简单，需要的朋友可以参考下有
- steam游戏平台怎么添加好友呢？有玩家反应在steam里面无法添加好友，这是怎么回事呢？其实steam里面要加好友的话是有前提的，下面请看
- 这篇文章主要介绍了如何用指定用户名访问共享文件,需要的朋友可以参考下文件夹的共享访问一直是很麻烦的问题，总是出现难以捉摸的问题。今天在一个很
- 新版的word文档想必以前的版本来说，最明显的变化就是多了一个开始屏幕功能，可能很多人都会觉得不习惯，那么如何才能将其取消显示呢?下面随小编
- Win7使用360断网急救箱提示“发现网络存在问题，网络异常”？最近有用户询问这个问题，不知道怎么解决，在使用360断网急救箱时出现了此类问
- 人嘛，谁还没有个隐私了呢，对吧？纸质版的隐私我们可以选择藏在箱子里，言语上的隐私我们可以选择藏在心上，那么电脑上的隐私就厉害了，我们可以选择
- 我们了解了word的工作界面由几个重要部件组成，其中今天我们先来了解下word中菜单栏的介绍和使用方法。在word2003中，菜单栏是执行命
- 如何在Microsoft Word中创建项目符号列表，要在Microsoft Word中创建项目符号列表，请按照以下步骤操作。
- 大家在使用电脑的过程中，总会遇到兼容性的问题，比如在运行AutoCAD2014的时候，会出现打开时间长，还会卡在“正在检查许可”界面的问题，
- 一些朋友发现自己在文件上点击鼠标右键弹出的菜单里会有个上传到迅雷云盘选项，似乎挺影响右键菜单反应速度的，大家想知道如何将这个选项给删除掉，今
- Win11自带播放器其实超好用！教你几招玩转它，一般来说，Windows自带的媒体播放器体验并不如人意，但实际上，Win11中却并非如此。在
- 不小心把重要文件删掉了，又着急使用怎么办？？Cisdem Data Recovery for Mac是一款Mac上实用的数据恢复工具，快速扫
