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

huposhhy · 发表于 2004-7-20 10:55

我想在Word中实现这样的功能：

我将某篇文章的文字定义成三种不同颜色的三段，比如黑、兰和红色，我想用VBA实现四个按钮：点击按钮1隐藏兰色文字段，点按钮2隐藏红色文字段，点击按钮3显示兰字段，点击按钮4显示红字段。

各位一定要帮啊，在些先谢谢了！

cofe2000 · 发表于 2004-7-20 12:13

只会1和2，3和4想不出好办法

Sub 按钮1() For Each i In ActiveDocument.Characters If i.Font.Color = wdColorBlue Then i.Font.Color = wdColorWhite Next End Sub Sub 按钮2() For Each i In ActiveDocument.Characters If i.Font.Color = wdColorRed Then i.Font.Color = wdColorWhite Next End Sub

huposhhy · 发表于 2004-7-20 12:24

谢谢，非常感谢！！

守柔 · 发表于 2004-7-20 12:36

以下是引用huposhhy在2004-7-20 10:55:00的发言：

我想在Word中实现这样的功能：

我将某篇文章的文字定义成三种不同颜色的三段，比如黑、兰和红色，我想用VBA实现四个按钮：点击按钮1隐藏兰色文字段，点按钮2隐藏红色文字段，点击按钮3显示兰字段，点击按钮4显示红字段。

各位一定要帮啊，在些先谢谢了！

AmzwGa8X.zip (10.4 KB, 下载次数: 19)

请在运行本程序前将宏安全性设为低。

主要代码如下，代大家参考：

Public RedRange As Range, GreenRange As Range Private Sub CommandButton1_Click() If CommandButton1.Caption = "隐藏红色段落" Then RedRange.Font.Hidden = True CommandButton1.Caption = "显示红色段落" Else RedRange.Font.Hidden = False CommandButton1.Caption = "隐藏红色段落" End If End Sub

Private Sub CommandButton2_Click() If CommandButton2.Caption = "隐藏绿色段落" Then GreenRange.Font.Hidden = True CommandButton2.Caption = "显示绿色段落" Else GreenRange.Font.Hidden = False CommandButton2.Caption = "隐藏绿色段落" End If End Sub

Private Sub UserForm_Activate() Set RedRange = ActiveDocument.Paragraphs(1).Range Set GreenRange = ActiveDocument.Paragraphs(3).Range Me.Caption = "显隐指定段落文字" If RedRange.TextRetrievalMode.IncludeHiddenText = False Then CommandButton1.Caption = "隐藏红色段落" Else CommandButton1.Caption = "显示红色段落" End If If GreenRange.TextRetrievalMode.IncludeHiddenText = False Then CommandButton2.Caption = "隐藏绿色段落" Else CommandButton2.Caption = "显示绿色段落" End If End Sub

Private Sub Document_Open() UserForm1.Show (0) End Sub

cofe2000 · 发表于 2004-7-20 13:05

请问守柔：

Set RedRange = ActiveDocument.Paragraphs(1).Range Set GreenRange = ActiveDocument.Paragraphs(3).Range

这样写的话通用性不是很强，我想可以遍历全文后找到全部对应颜色的文字再set一个区域（excel中是union，我不知word中如何写），自己水平有限，写了一点就写不下去，还请版主帮忙，谢谢！

守柔 · 发表于 2004-7-20 13:35

可以有两个方法：

一个是range方法，一个是setrange方法，还有一个MOVE方法等。

Sub test1() Dim a As Long, b As Long, c As Range a = ActiveDocument.Paragraphs(1).Range.Start b = ActiveDocument.Paragraphs(3).Range.End Set c = ActiveDocument.Range(a, b) c.Select End Sub Sub test2() Selection.SetRange Start:=Selection.Start, End:=ActiveDocument.Paragraphs(4).Range.End - 10 End Sub

huposhhy · 发表于 2004-7-20 23:52

非常感谢！

huposhhy · 发表于 2004-7-20 23:59

再次感谢守柔！

你给我的文件我看了，但是在隐藏之后保存再打开时就出问题了。不过我想这个问题应该是比较好解决的。

再一次真诚感谢！

守柔 · 发表于 2004-7-21 08:53

以下是引用huposhhy在2004-7-20 23:59:00的发言：

再次感谢守柔！

你给我的文件我看了，但是在隐藏之后保存再打开时就出问题了。不过我想这个问题应该是比较好解决的。

再一次真诚感谢！

cgoJN74M.zip (10.63 KB, 下载次数: 17)

再试试这个，请注意内有书签，可参照与更改。

huposhhy · 发表于 2004-7-21 09:09

再次感谢，不过我想突出的是基于文字颜色特征隐与显，而不是基于段落特征的隐与显，即按下按钮之后，无论是处于什么位置的有相关特征的文字全部被执行。

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