wordvba字体标黄

1.word中如何将所有的等于XX或XXX的值一下全部标成背景色为黄色

这个不用宏业可以搞定。

比如你要把一个word里面的所有“XXX”替换成带黄色背景的“XXX”，你只要先设置好一个“XXX”，用“突出显示”给它带上黄色背景，然后复制它，打开替换对话框，在“替换为”的选项框里粘贴上它。然后去复制一个没有更改过格式的“XXX”放到“查找内容”里面，然后选全部替换就可以了。

或者你还可以复制好了设置好的“XXX”，然后点开查找替换框里的高级选项，选择格式下拉栏里面的突出显示。然后在查找内容里面贴上没更改过格式的“XXX”即可。看起来替换的目标和内容是一样的，其实是替换了格式。

2.EXCELVBA求标注颜色代码请看附件

Sub kkk() For r = 2 To 11 If Range("AN" & r)。

Value "" Then With Range("AM" & r)。Interior 。

ColorIndex = Range("AN" & r)。Value + 1 。

Pattern = xlSolid End With End If If Range("AR" & r)。 Value "" Then With Range("AQ" & r)。

Interior 。ColorIndex = Range("AR" & r)。

Value + 1 。 Pattern = xlSolid End With End If Next End Sub 。

3.VBA字体颜色代码

严格按步骤操作：

右键点工作表的名字（在左下角呢，如Sheet1），查看代码，粘贴如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("BZ" & Selection.Row).Font.Color = vbRed Then

Selection.EntireRow.Font.ColorIndex = xlAutomatic

Else

Selection.EntireRow.Font.Color = vbRed

End If

End Sub

回到工作表，功能实现。

4.如何用word vba实现页面设置里的字体设置

With Selection.Font

.NameFarEast = "宋体"

.NameAscii = "Times New Roman"

.NameOther = "Times New Roman"

.Name = "Times New Roman"

.Size = 12

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.UnderlineColor = wdColorAutomatic

.StrikeThrough = False

.DoubleStrikeThrough = False

.Outline = False

.Emboss = False

.Shadow = False

.Hidden = False

.SmallCaps = False

.AllCaps = False

.Color = wdColorAutomatic

.Engrave = False

.Superscript = False

.Subscript = False

.Spacing = 0

.Scaling = 100

.Position = 0

.Kerning = 1

.Animation = wdAnimationNone

.DisableCharacterSpaceGrid = False

.EmphasisMark = wdEmphasisMarkNone

End With

补充：

wdStyleNormal=-1，试试With ActiveDocument.Styles(-1).Font

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

转载请注明出处51数据库 » wordvba字体标黄