老大，再次发贴，请全并处理

sdbbsdbb

cEVVT45x.txt (2.06 KB, 下载次数: 16)

2005-4-24 13:20 上传

点击文件名下载附件
老大，再次发贴，请全并处理

老大，这个附件中有几个空行（没有汉字仅有空格，即有全角也有半角），能否用最经济最方便的方便删除这些行（而不是先删除全部空格再去除这些行，这样作会使主文本发生变异）？

另外，上次的“三内容查找替换”程序能否帮我建个模块，我需要的是比WORD本身的'查找替换'对话框功能功能更丰富的增强版本，而不单单是利用现有的'正则表达式'。对付电子书那复杂而又多变的情况，我太需厅您的大力帮助了。

再次致谢、！

守柔

你先试一下，以WORD方式打开该文本文件，将此代码粘贴于活动文档的THISDOCUMENT代码窗口中，运行：

Option Explicit Sub Example() Dim i As Paragraph Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) <= 4 Or VBA.InStr(i.Range, "¡¡") > 0 Then i.Range.Delete Next Application.ScreenUpdating = True End Sub 注意：VBA是面向对象的编程过程，不同对象，其处理方法是不会千遍一律的，就象你所说的，WORD中的查找与替换，我以为是不可能有定式的，只能随机应变，只要你心中有数，则道法自然也。

sdbbsdbb

老大，再“通用”一下吧，我想先自建一个宏，与“查找替换”对话框基本一样的宏，然后再以此为基础，再行改造扩充。可您的代码集中好象没有这个东东（四个查找替换例子都不大符合我的要求）。版主能否抽空帮偶们大伙搞一个，我实在感到WORD的'查找替换'功能有点弱（虽然比起记事本是强大的多）。

守柔

哈哈，有意思，都“通用”了，还用得着VBA吗？MS WORD的专家们是吃素的？他们的能力不知高过我等N倍。

说真的，你能这样想，很不错了，VBA贵在机动灵活，具体问题具体分析。

如果，有实例，我们可以就事论事，看能否解决，如果只是“臆想”，则WORD中早有此命令或者工具栏了。

以上只是我的一家之言，未必正确。希望楼主见谅，此事就此讨论结束。