如何清除文档中的所有不可见字符？

praijna

各位老师：
      周末快乐！
      恳请老师出手相助！




感恩！

ydlpc

CTRL+H 替换

praijna

各位老师：
      文章里有许多许多如“[p1324]”这样的行（后面可能是回车，也可能是只是换行符），如何用代码一次删除？





感恩！

13907933959

praijna 发表于 2017-8-12 22:30
各位老师：
      文章里有许多许多如“”这样的行（后面可能是回车，也可能是只是换行符），如何用代码一 ...

这个看行不行？

Sub 删除()

   With ActiveDocument.Content.Find

       .Execute "^11", , , , , , , , , "^p",2

       .Execute "[p^#]^p", , , , , , , , ,"", 2

       .Execute "[p^#^#]^p", , , , , , , , , "",2

       .Execute "[p^#^#^#]^p", , , , , , , ,, "", 2

   End With

End Sub

praijna

13907933959 发表于 2017-8-13 07:03
这个看行不行？ Sub 删除()   With ActiveDocument.Content.Find       .Execute "^11", , , , , , , , , ...

感恩老师的帮助！
想请教您一个问题，怎样把 word 的内容读取到数组中，处理完之后，写回到原文档中，覆盖原来的内容？

13907933959

praijna 发表于 2017-8-13 08:48
感恩老师的帮助！
想请教您一个问题，怎样把 word 的内容读取到数组中，处理完之后，写回到原文档中，覆 ...

这个我不懂，请等待高手解答！

praijna

13907933959 发表于 2017-8-13 09:07
这个我不懂，请等待高手解答！

如何只删除每一个段落（包含换行、回车）中文前面、末尾的空格、非中文字符（除标点之外），中文中间的空格、非中文字符保留。

praijna

13907933959 发表于 2017-8-8 08:50
网友好！

这个我以前也碰到，后经 liu-aguang 前辈指点，删除。

Sub 删除不可见字符()
    With ActiveDocument.Content.Find
        .Execute "[!一-龥，！？；：。、^11^13]", , , 1, , , , , , "", 2
    End With
End Sub
这个代码很好用，怎样不清除“《》「」()”这些文言文的标点符号，以及数字呢？

praijna

Sub 删除不可见字符()
Dim Ta As Table
For Each Ta In ActiveDocument.Tables
    With Ta.Range.Find
        .Execute "[!一-龥《》0-9A-Za-z「」\(\)\[\]（），！？；：。、^11^13]", , , 1, , , , , , "", 2
    End With
Next
End Sub

13907933959

praijna 发表于 2017-8-11 15:51
感恩您！
个人的想法是根据文档前面的目录，在原始文件里顺序查找并拷贝到新文件里。
原始档案如下附件 ...

Word文档简体版《禅藏》。