[求助]关于查找

acezhang · 发表于 2006-8-24 19:02

不知道能不能根据字体和颜色的不同来找word文档中的内容

找到之后并在原来的字符的基础上添加一定的序号

不知道这个能不能用vba实现

可以的话能否给我一点提示呢

thx

c81 · 发表于 2006-8-24 19:33

可以用查找替换来完成。

不过要几步

是这样的，先按颜色查找到字，替换成前面加个段落回车的本身字。然后全选它们，给它们加个单编号，全选后，选择性粘贴为文本，使编号可以选中，然后将序号前的段落回车查找替换为空进行消除即可。

如果楼主用的字是彩色如一会儿黄字一会儿红字，本法失效。

[此贴子已经被作者于2006-8-24 19:42:37编辑过]

acezhang · 发表于 2006-8-24 20:03

1lJCWP4G.rar (4.37 KB, 下载次数: 9)

见文档

现在想把那些斜体桔黄色的内容找出来，并在其之前添加序号，可以吗

大致步骤能否再详细一点呢

thx

sylun · 发表于 2006-8-24 20:42

可以用插入seq域的办法：预先复制一个seq域编号到剪贴板，再全部查找并选中某种颜色或字体的文本，替换内容为：^c^& (如序号在后也可替换为^&^c)。此法可实现不同颜色使用不同的编号序列，且替换文本在段落中的位置不限。

c81 · 发表于 2006-8-24 23:47

然后添加自动编号，复制，选择性粘贴，替换掉所有制表符，然后

然后将做好的序号与单词变成黄色，最后将数字变成黑色即完成。

[此贴子已经被作者于2006-8-24 23:53:24编辑过]

acezhang · 发表于 2006-8-25 07:53

按照 c81所说的

自动编号，选择性粘贴，替换掉所有制表符，

都找不到耶，不知道其间还有什么步骤

我对这个一点也不熟，请赐教

谢先

c81 · 发表于 2006-8-25 09:32

QUOTE:

以下是引用sylun在2006-8-24 20:42:00的发言：

可以用插入seq域的办法：预先复制一个seq域编号到剪贴板，再全部查找并选中某种颜色或字体的文本，替换内容为：^c^& (如序号在后也可替换为^&^c)。此法可实现不同颜色使用不同的编号序列，且替换文本在段落中的位置不限。

这种方法的思路很好！

不过好象seq不好做吧？应该用自己定义的LISTNUM来做吧，这个很快。

c81 · 发表于 2006-8-25 09:40

按LISTNUM做很方便。

守柔 · 发表于 2006-8-25 18:03

用SEQ域是正解。

操作方法：

空白处，按下CTRL+F9组合键，键入“SEQ A”，注意中间有个空格，按下F9，更新域，其值为1，选中“1”，（域结果），复制。

如下图进行查找与替换操作：

全部替换结束，CTRL+A全选文档，按下“F9”键自动更新域即可，若取消自动编号，可按下CTRL+SHIFT+F9组合键，切断域链接，成为静态文本。

补充一点，你还可以直接将编号结果和小数点一块儿复制更方便。

[此贴子已经被作者于2006-8-25 18:04:44编辑过]

acezhang · 发表于 2006-8-25 21:04

谢谢斑竹，这下就可以完全搞定了

域的功能真强大亚

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