[求助]求对于不连续选区进行选择操作的VBA代码

keypress

具体的问题我写在附件中了, 这个问题困扰我很久了,

问题概述:

在一些不连续的选区中查找特定的字母,如ABCD

再对找到的字母进行格式转化,1.强制为小写;2.加粗;3倾斜

我用录制宏的方式试过了,不行(我只会录制宏)

因此想请高手来给个代码

适用软件: WORD2003

守柔

不要急着用宏。

先简单一点的:

分以下几步走:

CTRL+F，查找，勾选使用通配符，在突出显示所有在该范围内找到的项目前打勾，在查找内容中输入:"[A-Z]",注意此处是大写,实际中不需要输入引号,如图:

这个查找的目的是将所有大写字母选中,如果实际中,你是A-D,则修改之.

这样,所有符合要求的字母全部被选中,在格式/更改大小写中,改为小写.

继续,直接使用CTRL+B,CTRL+I,将所有选定项目的字母成为粗斜体.

第二部分:

同上,查找内容改为"[a-z]．",也要通配符勾选等,如图.

其中的"．"来自于你的文档中的小数点分隔符(估且称之),WORD将会选中这些符合要求的字母和分隔符.

在格式/更改大小写中,改为大写.

继续,直接使用CTRL+B,CTRL+I,将所有选定项目的字母还原为常规体.

如果确实要用代码,编一个,也非常简单.

keypress

这一方法我也知道的, 但由于例子中的文档只是一部分, 有时我只须对一部分文档执行这样的操作, 因此, 通常我先选中部分文本,再执行查找与替换等操作.

由于总是重复这样的工作, 因此想到用宏, 但居然宏搞不定这件事, 又想去改代码,

但本人未学过VB, 参考VBA帮助时, 发现selection对象在活动文档中只有一个, 因此就不明白了, 对于不连续的选区该如何用VBA进行操作?

PUZZLE 中

[em04]

[此贴子已经被作者于2005-6-8 10:09:37编辑过]

守柔

其实这个贴子，今天刚刚被顶起来。

http://club.excelhome.net/viewthread.php?tid=83670

其实象你这个情况，无需使用FIND方法，你传一个比较详尽一些的附件，并说明是针对全文档还是选定对象的操作，我编一个小程序。

keypress

以下是引用守柔在2005-6-8 10:30:00的发言：

其实这个贴子，今天刚刚被顶起来。

http://club.excelhome.net/viewthread.php?tid=83670

其实象你这个情况，无需使用FIND方法，你传一个比较详尽一些的附件，并说明是针对全文档还是选定对象的操作，我编一个小程序。

文件中需要更改的地方已加了高亮, 一时之间找不到好的例子,因为以前的文档我已经手工完成了,新的文档还没打呢

[em02]