WORD怎么批量一行字换一种颜色
按行换色的方法也行，比如1.3.5.7.8红2.4.6.8.10黑的也行，用工具也行、 展开
新建一个宏，将以下代码粘贴到这个宏中，运行此宏即可。
一、准备工作：请将末尾的代码用鼠标拖动选中，并复制到剪切板中。
二、创建宏：单击菜单“工具/宏/宏（M）…”，弹出“宏”对话框（默认宏名“Macro1”不用修改），单击右侧的“创建”按钮，创建宏的代码窗口随即打开。
三、创建宏代码：直接按键盘的Ctrl+V粘贴代码进去（粘贴代码后的样子见效果图），再关闭这个代码编辑窗口，返回到Word编辑窗口。
四、运行宏：单击菜单“工具/宏/宏（M）…”，弹出“宏”对话框，单击选定列表中的宏“Macro1”，再单击右侧的“运行”，您的要求一步完成。
--------------------------------------------------------------------------------
'以下代码按楼主要求，一共四种颜色（假定为黑色、红色、兰色、绿色），循环下去。
'以下就是需要您复制的宏代码
On Error Resume Next
Dim Rows As Long
Dim i As Long
Dim c As Integer
'统计有多少行
Rows = ActiveDocument.BuiltInDocumentProperties("Number of lines").Value
'光标移动到最前
Selection.HomeKey Unit:=wdStory
'按4种颜色，循环着色每一行
For i = 0 To Rows
c = c + 1
Selection.EndKey Unit:=wdLine
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
If c = 1 Then '第一行用黑色
' Selection.Font.Color = vbBlack
Selection.Font.Color = RGB(0, 0, 0)
End If
If c = 2 Then '第二行用红色
' Selection.Font.Color = vbRed
Selection.Font.Color = RGB(255, 0, 0)
End If
If c = 3 Then '第三行用兰色
' Selection.Font.Color = vbBlue
Selection.Font.Color = RGB(25, 25, 112)
End If
If c = 4 Then '第四行用绿色
' Selection.Font.Color = vbGreen
Selection.Font.Color = RGB(0, 255, 0)
End If
Selection.MoveDown Unit:=wdLine, Count:=1
If c = 4 Then
c = 0
End If
Next
宏的功能健在那？还是得下载？我是新手。。。。
就是考虑到您是新手，所以我上面的回答很仔细，包括代码也是利于您再次修改的，比如颜色，也请您仔细看一下，一步一步跟着来。
可能您比我想像的还新，我的第二步意思是说：单击菜单“工具”，将弹出菜单列表，将鼠标移动到其中的“宏”上，再单击右侧弹出菜单列表中的“宏（M）...”……
上面所述是根据Word 2003 版，如果您是Word 2007或2010版的，我就无能为力了，因为我看也没有看过。
sub test_by_zzllrr()
dim pg,ln,lne,i
with activedocument.characters(selection.storylength)
pg # .information(wdactiveendpagenumber)
ln # .information(wdfirstcharacterlinenumber)
end with
with selection
.homekey wdstory
i # 0
do until .information(wdactiveendpagenumber) # pg and .information(wdfirstcharacterlinenumber) # ln
i # (i + 1) mod 4
.movedown wdline, 1
.homekey wdline
.endkey wdline, wdextend
.font.colorindex # i+ 1
loop
end with
end sub
'注意: 我手机打不了等号, 要把上面所有#号替换为等号
我需要的只是替换一小部分的字体颜色。最好能分别页码的比如我要替换那个页码的字体
什么东东。说明白。。
