word宏：怎样一次性剪切复制不连续的文字

来源：百度知道 编辑：UC知道 时间：2024/06/23 15:48:07
家庭百事通 jbwanqiong@sina.com 08-06
家庭导报 wdx781@sohu.com 08-06
家庭医学 tougao@jtyxzz.com 08-07
家庭医学新健康 jiatingyixue@126.com 08-07

整个文档有数千行，其中有些行整行是红色文字，我想做个宏把所有红色文字的行一次性选中剪切复制到文档末尾，仍然是一行一行的，并仍保留原来的红色。把写好的宏列出来即可。
1楼根本没看明白我的意图

2楼的宏运行后没有任何变化

建一个宏指定到工具栏，使用的时候单击按钮即可，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Macro1()
Dim s As String
For Each Page In ActiveDocument.ActiveWindow.ActivePane.Pages
For Each Line In Page.Rectangles(1).Lines
If Line.Range.Font.Color = wdColorRed Then
s = s & Line.Range.Text
End If
Next
Next
ActiveDocument.Content.InsertAfter s
End Sub

使用 替换 功能将会很方便

“查找内容”跟“替换为”两个文本框中不输入任何字符，先在“查找内容”后边的框里点一下，然后点“高级”按纽，点“格式”，选“字体”，在弹出的框中选中字体颜色为黑色（这里假定其他红色以外的颜色为黑色），点确定，然后点“全部替换”。就这么简单，

图见http://16748059.qzone.qq.com/?url=http%3A//photo.qq.com/qzone_v4/photo_view.htm%3F1.0.2.2%23a_id%3D01a0c710-f9c0-42dd-93ed-ed257c1d6bf9%26lloc%3Dd0fc1f0e-15b5-4517-9b16-8f081176f13f