[求助]请问如让广州火车站、东山口、梅花村、冼村、北京路、上下九等字符显示红字？

tsptsp0

请问如让广州火车站、东山口、梅花村、冼村、北京路、上下九等字符显示红字？ 还有起点站和终点站也显示红字 5DJMJdJq.rar (18.46 KB, 下载次数: 11)

2006-6-9 14:13 上传

点击文件名下载附件
[求助]请问如让广州火车站、东山口、梅花村、冼村、北京路、上下九等字符显示红字？

鑫11

试一试这个宏

Sub Macro82()
'
' Macro82 Macro
' 宏在 2001-1-19 由 Bluewater 录制

Dim a(7) As String
Selection.HomeKey unit:=wdStory
a(0) = "广州火车站": a(1) = "东山口": a(2) = "梅花村": a(3) = "冼村": a(4) = "北京路": a(5) = "[上下]九?": a(6) = "　*→": a(7) = "→[!→]@^13"
With Selection.Find
For Each i In a
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.FONT.Color = wdColorRed
.Execute findtext:=i, Replace:=wdReplaceAll
Next
.ClearFormatting
.Replacement.ClearFormatting
.FONT.Color = wdColorRed
.Replacement.FONT.Color = wdColorAutomatic
.Text = "→"
.Execute Replace:=wdReplaceAll
End With

End Sub

tsptsp0

谢谢您的回复!

守柔

以下是引用[I]鑫11[/I]在2006-6-9 15:24:26的发言：[BR]

试一试这个宏

Sub Macro82()
'
' Macro82 Macro
' 宏在 2001-1-19 由 Bluewater 录制

Dim a(7) As String
Selection.HomeKey unit:=wdStory
a(0) = "广州火车站": a(1) = "东山口": a(2) = "梅花村": a(3) = "冼村": a(4) = "北京路": a(5) = "[上下]九?": a(6) = "　*→": a(7) = "→[!→]@^13"
With Selection.Find
For Each i In a
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.FONT.Color = wdColorRed
.Execute findtext:=i, Replace:=wdReplaceAll
Next
.ClearFormatting
.Replacement.ClearFormatting
.FONT.Color = wdColorRed
.Replacement.FONT.Color = wdColorAutomatic
.Text = "→"
.Execute Replace:=wdReplaceAll
End With

End Sub

鑫兄现在的代码越来越好了，查找与替换用得也很好啊。 我建议对于文本型数组（或者类似情况），使用ARRAY方法。 Dim A() As Variant, oA As Variant A = Array("广州火车站", "东山口", "梅花村", "冼村", "北京路", "[上下]九?") For Each oA In A ……

鑫11

老大建议的好，谢谢

konggs

恭喜鑫11兄，

要得到老大的表扬可是不多噢！！

不过，确定进步飞快。

鑫11

就楼主上传的文档，用以下的宏会更好些，但它的适用面没2楼的宏 广，如站名的字号不是11号或在的原文档的基础上新加上一段11号的文字，但内容不是公交路线的话就只能用2楼的宏

Sub Macro82()

Dim a(7) As String
Selection.HomeKey unit:=wdStory
a = array("广州火车站", "东山口", "梅花村", "冼村", "北京路", "[上下]九?", "　[!→]@", "[!→]@^13")
With Selection.Find

.ClearFormatting
.Replacement.ClearFormatting
For Each i In a
.font.size=11
.Replacement.FONT.Color = wdColorRed
.Execute findtext:=i, Replace:=wdReplaceAll
Next
End With

End Sub