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

huposhhy

这个“＊”用得太妙了，我正在欣赏，有问题一会再问，对了顺便问一下我是不是没有上传文件的权限，如果我按你的指教仿制好了，如何传上来让，也好请版主再指教啊。

rongjun

以下是引用huposhhy在2004-7-29 9:11:00的发言： 这个“＊”用得太妙了，我正在欣赏，有问题一会再问，对了顺便问一下我是不是没有上传文件的权限，如果我按你的指教仿制好了，如何传上来让，也好请版主再指教啊。

可以，压缩后上传。

huposhhy

uXt1Wx1s.rar (11.39 KB, 下载次数: 7)

2004-7-29 10:20 上传

点击文件名下载附件

我想用“定义红字签”按钮来定义名为“ParRed*”的书签，其中“＊”代表先前程序生成的一系列数字，而且在每次选中某一段文字点击“定义红字签”时程序会自动从“＊”代表的一系列数字中找到最大值并在此数值上加1做为此次定义的书签名。这样就可以实现任意定义和任意显隐了，请问我这个设想如何用代码来实现？

[此贴子已经被作者于2004-7-29 10:17:13编辑过]

守柔

请参考：

Private Sub CommandButton1_Click() Dim bmc As Integer On Error Resume Next Selection.Font.Color = wdColorRed bmc = ActiveDocument.Bookmarks.Count + 1 Selection.Bookmarks.Add Name:="ParRed" & bmc End Sub Private Sub CommandButton2_Click() Dim bm As Bookmark On Error Resume Next For Each bm In ActiveDocument.Bookmarks If bm.Name Like "ParRed*" = True Then bm.Range.Font.Hidden = True End If Next End Sub Private Sub CommandButton3_Click() Dim bm As Bookmark On Error Resume Next For Each bm In ActiveDocument.Bookmarks If bm.Name Like "ParRed*" = True Then bm.Range.Font.Hidden = False End If Next End Sub

huposhhy

好，我先研究一下，还有一个问题，不过明天再问，版主可别先我烦呀？过多的不说了，还是感谢！

huposhhy

守柔兄，小弟又有一事相求：我想实现将内容隐藏后同时用同等字符数的空格（或空行）代替，显示时又能恢复原状。

敬候赐教！

守柔

以下是引用huposhhy在2004-7-30 18:49:00的发言：

守柔兄，小弟又有一事相求：我想实现将内容隐藏后同时用同等字符数的空格（或空行）代替，显示时又能恢复原状。

敬候赐教！

这个问题，我不知楼主为何有如此想法，只因“全部显示”或者“文字/显示隐藏文字” 或者是选项/视图/显示隐藏文字，还是“ctrl+shift+H" 就能破坏？ 因为作为隐藏文字出发点而言，只是将文字部分设为“无（白）色”，并折叠起来，从根本上讲，是不能很好回避上述东东的。

而如果需要替换为空格，一旦误存盘或者直接存盘，岂不完蛋了？

替换成空格的原有文档文字，则必须要有一个载体，比如另外一个WORD文档，或者是一个文本文件，储存原有文档文字，一旦需要，就恢复。

虽然从编程角度说，并不是一件很难的事，但我觉得意义不太。

我想，楼主的意思是否就是希望阅读者无法通过上述方式看到这些隐藏的内容呢？除了不能人为强制设置宏安全性外，其它的问题还是好办的。

如果是这样的话，我们不妨保护文档，在运行代码开始时解除文档保护，代码结束时保护文档。

希望楼主进一步明确指导思想，再行决定。