[求助][求助]从帖子里复制资料到word整理时发现有大量隐藏文字

cuteword

linqiang0816兄：

你的问题我研究过的。

word中并不是所有的操作都能被录制。所以，你的问题不能直接解决。

如果要编程实现，那么请参考http://club.excelhome.net/viewthread.php?tid=240259&replyID=&skin=0

搜集整理网页参考：http://hi.baidu.com/cuteword/blog/item/6fd377c2fa2eb034e5dd3bb5.html

隐藏的文字或者白色文字的处理比较麻烦的方式（能处理多种形式的隐藏文字）参考：http://hi.baidu.com/cuteword/blog/item/885ab51061eac000213f2eed.html

linqiang0816

有两种方法可以解决我上面遇到的问题，一是通过循环删除，二是替换，详见以下代码：

Sub delHtext()
'用于删除隐藏文字
    ActiveWindow.View.ShowHiddenText = True    
    Selection.HomeKey Unit:=wdStory 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^?"
        .Font.Hidden = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
         While .Execute
               Selection.Delete Unit:=wdCharacter, Count:=1
         Wend
    End With
   
End Sub

Sub delhtext2()
   ActiveWindow.View.ShowHiddenText = True  
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "^?"
        .Font.Hidden = True
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
       ActiveWindow.View.ShowHiddenText = False
End Sub

[此贴子已经被作者于2007-6-13 22:53:47编辑过]

linqiang0816

以下是引用cuteword在2007-6-13 19:48:42的发言：

linqiang0816兄：

你的问题我研究过的。

word中并不是所有的操作都能被录制。所以，你的问题不能直接解决。

同意cuteword兄的观点，在word2003中是不能录制所有操作的

但在word2000中查找和替换基本上能录制的。

linqiang0816

to cuteword 兄：

不好意思，看了你链接的文章，我才意识到我从一开始的就弄错方向了，现在我知道网页中隐藏文字的问题了。非常感谢你。

不过在最后一个连接的文章中：

http://hi.baidu.com/cuteword/blog/item/885ab51061eac000213f2eed.html提到的“受限选换”按钮是在word里面了，我找了一下，没有找到，你可以再具体说明一下吗？

linqiang0816

cuteword 兄：

又对上面的宏做了改进，将人工换行符替换为回车符的代码也加了进去，这样为后续的排版代理方便，对于下面链接例子中的文档全文，已经可以处理：http://space.univs.cn?5602/action_viewspace_itemid_25993.html

新的代码为：

Sub Macro2()
   Selection.HomeKey Unit:=wdStory
   Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
   Selection.Find.Execute Replace:=wdReplaceAll
   ActiveWindow.View.ShowHiddenText = True
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
        .Text = "^?"
        .Font.Hidden = True
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Cut
    Selection.PasteAndFormat Type:=wdFormatPlainText
    ActiveWindow.View.ShowHiddenText = False
End Sub

我试了一下可以的，不过另外一个宏（就是循环替换的）在运行的时候会停止在一处，程序跳不过去，word就死了，只能停掉宏，错误提示在“while wend”循环的代码，不知道是为什么，请查看：

Sub delHtext()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.View.ShowHiddenText = True
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^?"
        .Font.Hidden = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        While .Execute
            Selection.Delete Unit:=wdCharacter, Count:=1
         Wend
    End With
    Selection.WholeStory
    Selection.Cut
    Selection.PasteAndFormat Type:=wdFormatPlainText
    ActiveWindow.View.ShowHiddenText = False
End Sub

[此贴子已经被作者于2007-6-14 12:54:26编辑过]

cuteword

略修改了一下

Sub delHtext()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ActiveWindow.View.ShowHiddenText = True
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^?"
        .Font.Hidden = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        While .Execute
            Selection.Delete
            Selection.MoveRight
         Wend
    End With
    Selection.WholeStory
    Selection.Cut
    Selection.PasteAndFormat Type:=wdFormatPlainText
    ActiveWindow.View.ShowHiddenText = False
End Sub

linqiang0816

代码改了之后运行成功，谢谢cuteword兄。

先前代码未成功的原因基本上了解了,这样的话，对于网页上使用<span style="display=no">隐藏文字</span>而隐藏的文字，就可以使用以上的两个宏来去除。

这两个宏在速度上，使用循环替换速度上更快，而使用循环删除速度上要慢。宏运行结束后就基本上相当于没有隐藏文字的无格式粘贴，可以在进行其他格式的处理了。

yuyvtul

既然是隐藏文字，为什么不一次查找出来删除呢？

linqiang0816

宏delHtext就是实现这个功能的自动化的。