[分享]空白段落的删除问题

yaitlzj · 发表于 2010-1-21 13:15

在此谢谢各位，我又学到新的知识。

任我逍遥 · 发表于 2010-7-22 01:04

守柔，守柔，真是太厉害了，谢谢！

一滴简单 · 发表于 2010-11-17 11:40

今天初识这个网站，看了好多分享，O(∩_∩)O谢谢！

bqgong · 发表于 2010-11-17 23:23

都是什么东西，搞不明白哦～

ZOZO8866 · 发表于 2011-4-17 18:24

会VB就是好啊！我每次想学一看到那一大串代码就晕了。

xmyjk · 发表于 2011-4-18 00:10

很好的技巧，批量删除很方便，谢谢守版。

AVEL · 发表于 2011-11-13 17:56

经常需要删除段落，看了版主的代码，对以后帮助很大。

xipick · 发表于 2011-12-19 10:30

怀版主，批量删除空白页怎么写代码啊，求救啊

tan133 · 发表于 2012-1-14 23:14

守柔大大，你的删除空白行应该有更好的方法
如下
代码我不会写了，就说方法吧
查找替换把\w^p替换为空
个人认为应该你那个for each para in paras要快，我现在还不会写代码，没测试过

413191246se · 发表于 2012-1-15 02:29

删除半角空格、全角空格、制表符、空行，一网打尽，参见下面代码：

Sub 删除段落首尾空格及空行()
Dim i As Paragraph, n As Long
For Each i In ActiveDocument.Paragraphs
      For n = 1 To i.Range.Characters.Count
         If i.Range Like " *" Or i.Range Like "　*" Or i.Range Like Chr(9) & "*" Then
            i.Range.Characters(1).Delete
         ElseIf i.Range Like "* " & Chr(13) Or i.Range Like "*　" & Chr(13) Or i.Range Like "*" & Chr(9) & Chr(13) Then
            Do
                  i.Range.Select
                  Selection.EndKey Unit:=wdLine
                  Selection.TypeBackspace
            Loop Until Asc(i.Range.Characters(i.Range.Characters.Count - 1)) <> 32 Or Asc(i.Range.Characters(i.Range.Characters.Count - 1)) <> 9
         Else
            Exit For
         End If
      Next n
      If Len(i.Range) = 1 Then i.Range.Delete
Next
End Sub

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