我上传一个附件,请把所有带问号的标题行变成红色的.

助人为乐 · 发表于 2004-9-14 14:42

HxhVuZgn.rar (73.53 KB, 下载次数: 33)

办公之星 · 发表于 2004-9-14 14:54

这个工作很简单，先设置一个标题行格式（必须是内置标题），然后对所有目标标题行应用该格式。

之后，还可以顺手生成一个带超链接的目录。

守柔 · 发表于 2004-9-14 15:22

对不起，我没注意到通配符与查找符号之间是一致时，请将查找内容改为"\?"(即查找?号)

4sr3UAiv.zip (105.2 KB, 下载次数: 23)

以上为代码运行结果.

代码供参考:

Sub RedFormat() Dim i As Paragraph Application.ScreenUpdating = False For Each i In Me.Paragraphs If i.Range Like "*[?]*" = True Then i.Range.Font.Color = wdColorRed i.Range.Font.Bold = True End If Next Application.ScreenUpdating = True End Sub 另外TO星兄:

对于没有内置样式的段落,是不能应用其结果的.不信你试试看,楼主又没有使用项目符号与编号,而且又没有使用特殊格式进行标志,WORD如何进行识别?

伊万 · 发表于 2004-9-14 15:40

守柔可以解释一下这是什么意思吗？？？

^l*?*^l

以后，我也好触类旁通。。。[em04]

助人为乐 · 发表于 2004-9-14 16:24

上面的应为^l*\?*^l

助人为乐 · 发表于 2004-9-14 16:25

谢谢守版主.这下让我省心多了,我还有好多这样的文件呢.

助人为乐 · 发表于 2004-9-14 16:32

估计不用VBA的话,这个问题是无解了.

yjxok · 发表于 2004-9-20 11:25

这个功能确实很有用呢!可是看了半天俺还是没看懂你们是怎么做到的?[em06]郁闷啊~~

shnawx · 发表于 2004-9-20 14:57

这个功能确实很有用呢!可是看了半天俺还是没看懂你们是怎么做到的?

郁闷啊~~

yjxok · 发表于 2004-9-21 09:31

嘿嘿,楼上滴~偶以为眼花了呢~(什么时候俺改名了?[em06])咱别一起郁闷了,一起请楼上的楼上的大虾指点迷津吧!!![em17]

		自动登录	找回密码
密码			免费注册