红蓝相间

chuhaiou

用VBA，在word中，如何将选中的内容，变成红蓝相间的文字？如这样：红蓝红蓝红蓝红蓝红蓝红蓝

duquancai

》》》》》》》》》》》》》》》》》》

chuhaiou

duquancai 发表于 2017-2-27 17:25
》》》》》》》》》》》》》》》》》》

谢谢，怎么没效果？

chuhaiou

duquancai 发表于 2017-2-27 17:25
》》》》》》》》》》》》》》》》》》

谢谢！没效果啊！

chuhaiou

Sub shishi()
Dim S As Range, P As Range, n&
  Set S = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)  '经典选择语句！！！
If S = ActiveDocument.Content Then
AB = MsgBox("要进行全文处理吗?", vbyesNoancel + vbQuestion, "全文处理判断")
If AB <> vbYes Then Exit Sub
End If
Set P = S.Duplicate
P.Font.ColorIndex = wdAuto
With P.Find
Do While .Execute("[一-﨩]", , , 1)   
If Not P.InRange(S) Then Exit Do
n = n + 1
Select Case n Mod 2
Case 1
.Parent.Font.Color = RGB(255, 0, 0)

Case 0
.Parent.Font.Color = RGB(0, 0, 255)
End Select
Loop
End With
End Sub

chuhaiou

duquancai 发表于 2017-2-27 17:25
》》》》》》》》》》》》》》》》》》

谢谢！成功了！

13907933959

chuhaiou 发表于 2017-3-1 07:57
谢谢！没效果啊！

网友好！

我试了杜前辈的代码是OK的，您要先选中想要变成红篮相间的文字，再运行代码，即可变成红篮相间的效果。

Sub shishi()

    Dim S As Range, P As Range, n&

    Set S = IIf(Selection.Type = wdSelectionIP,ActiveDocument.Content, Selection.Range)

     If S = ActiveDocument.Content Then

       AB = MsgBox("要进行全文处理吗?", vbyesNoancel + vbQuestion, "全文处理判断")

       If AB <> vbYes Then Exit Sub

    End If

    Set P = S.Duplicate

    P.Font.ColorIndex = wdAuto

    With P.Find

       Do While .Execute("[一-﨩]",, , 1)  '这个 [一-﨩]“表达式”是所有中文汉字的意思。

          If Not P.InRange(S) Then Exit Do

          n = n + 1

          Select Case n Mod 2

       Case 1

         .Parent.Font.Color = RGB(255, 0, 0)  '字体颜色、红色。

       Case 0

         .Parent.Font.Color = RGB(0, 0, 255)  '字体颜色、蓝色。

          End Select

        Loop

    End With

End Sub

zhanglei1371

这样更简单：

1. Sub df()
   
2. Selection.Font.Color = vbRed
   
3. For i = 2 To Selection.Characters.Count Step 2
   
4.     Selection.Characters(i).Font.Color = vbBlue
   
5. Next
   
6. End Sub
   

复制代码

duquancai

zhanglei1371 发表于 2017-3-2 13:28
这样更简单：

嗯，确实简单！但 题目要求“将选中的内容，变成红蓝相间的文字” 是文字而不是“字符”。

chuhaiou

zhanglei1371 发表于 2017-3-2 13:28
这样更简单：

谢谢！真的很简化