[求助]关于文字隐藏的问题，高手一定要帮忙啊！

守柔

TO huposhhy:

无所谓，只要你将有颜色特征的文字选定后，插入/标签：设为如程序中所言的"parred" 和"pargreen"，即可，当然,commandbutton.CAPTION 也略作修改，将“段落”改为“文字”。

应该可以很好运行的，你再试试。

huposhhy

感谢守柔版主的耐心细致的指导。

huposhhy

版主，我在定义书签时又有一个问题：我先将A段定义成“parred”，然后又想将C段也定义成同名的“parred”，如何实现？

守柔

你可以定义两个红色段落的书签呀！

比如将A段定义成“parred1”；B段定义为“parred2"

然后将下面代码替换原代码：

Private Sub CommandButton1_Click() If CommandButton1.Caption = "隐藏红色段落" Then ActiveDocument.Bookmarks("ParRed1").Range.Font.Hidden = True

ActiveDocument.Bookmarks("ParRed2").Range.Font.Hidden = True

CommandButton1.Caption = "显示红色段落" Else ActiveDocument.Bookmarks("ParRed1").Range.Font.Hidden = False

ActiveDocument.Bookmarks("ParRed2").Range.Font.Hidden = False

CommandButton1.Caption = "隐藏红色段落" End If End Sub

huposhhy

如果是这样，一篇文章我想隐藏不连续的N段，就要定义N次不同名称的书签，且在显隐代码中要不断的添加新代码，是不是太麻烦了，并且我想把这段程序代码应用在不同的文章中，让其具有很强的通用性，即无论是在哪篇文章我任意选定一段文字用代码定义成ParOne，然后再定义一段文字也叫ParOne，如此定义N段，这时点击隐藏这N段就都实现隐藏了，我这个设想能实现吗？版主多费费心吧，小弟在此先谢过了。

守柔

这个问题问得好！

普通文档中，你可以同时选中文本中的第一段和第三段（表格文本框另外），也可以选中第一个字和第三个字，（指不连续区域），但书签命令已反白不可用，也就是说WORD中的书签不支持非连续区域。

因此，你的要求应该建立在如果需要命名新书签，则应该先设置该段连续区域的文字颜色，比如红色或者黄色，再通过代码自动修正或者添加书签。

也就是说，如果是要通过VBA完成你的要求，则要有相应的触发事件，比如每次退了文档时，对你原有或者新修订书签进行完善与检测，而且要与原来各书签的显隐取得一致，比如十个红色书签区域中的文字已进行隐藏，则第十一个新设的区域的文字关闭文档前已将会被隐藏否则将出现错误，或者需要增加更多的命令按钮，每一个命令按钮控制相应书签文字的显隐，后者显然是不合理的。

你看呢？

如果你认为可行，我可以重新设计此代码。

huposhhy

你说的非常有道理，可是小弟才疏学浅，还请为小弟设计代码，以便小弟更好的学习。

守柔

需要楼主回答的问题：

在一个段落中，可以或者可能设置几种字体，按照楼主的问题，一个段落中是否可能设置了三种字体（有红色的，有绿色的，也有自动的相当于黑色的），并且一个段落中红色或者绿色字体的区域是否会超过1个或1 个以上，也就是说一个段落中红色（或者绿色）字体的区域会有多个？

huposhhy

一个段落中我想只能是一种字体，但不同段落中可以是不同字体。

守柔

以下是引用huposhhy在2004-7-28 17:04:00的发言： 一个段落中我想只能是一种字体，但不同段落中可以是不同字体。

Q5zKLnu0.rar (12.66 KB, 下载次数: 12)

2004-7-29 07:38 上传

点击文件名下载附件
[求助]关于文字隐藏的问题，高手一定要帮忙啊！

这个程序中针对楼主提出的每一个段落（注意是段落）可以应用一种文字颜色（本程序中，只设置了三种颜色，自动、鲜绿、红色），可以在文档中显隐红色与绿色文字，并且在对重新加设部分文字或者调整部分段落字体颜色设置后，在文档退出时自动予以修正，并在下次打开时根据当前设置进行显隐。

请楼主再看看再提意见！