wordvba改变字体颜色

1.VBA区域单击文字变换颜色

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set rg = Intersect([a1:b13], Target)

If rg Is Nothing Then Exit Sub

With rg.Font

If .Color = 0 Then

.Color = vbRed

Else

.Color = 0

End If

End With

End Sub

2.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

3.excel 字体颜色如何设置快捷键

excel字体颜色设置快捷键的方法步骤如下：

1、首先打开WORD，然后在工具栏的空白处单击右键。

2、在弹出的对话框中左键单击选择“自定义快捷访问工具栏（C）”。

3、然后会弹出word选项面板，左键单击选择面板右下方的“自定义”选项。

4、然后会弹出“自定义键盘”的面版，在面版内选择“开始 选项卡“-“FontColorPicker”，在“请按新快捷键（N）”下方的文本框中按你想设置的快捷键，记得需要同时按下进行指定，比如“Ctrl+F”最后点击“指定”完成命令即可成功设置excel 字体颜色的快捷键。

4.EXCEL VBA填充字体颜色和单元颜色

Sub s()

Dim a(3)

t = [a1]

For i = 0 To 3

a(i) = Mid(t, i + 1, 1)

Next

For i = 2 To 85

ff = True

For j = 0 To 3

f = False

For k = j * 7 + 11 To j * 7 + 17

If Cells(k, i).Text = a(j) Then

Cells(k, i).Font.ColorIndex = 3

f = True

End If

Next

ff = ff And f

Next

If ff Then Cells(39, i).Resize(7).Interior.ColorIndex = 6

Next

End Sub

转载请注明出处51数据库 » wordvba改变字体颜色