删除文档最后一个字符，后面的空格与回车（即无意义的空格和回车）

学习VS交流

删除文档最后一个字符，后面的空格与回车（即无意义的空格和回车）

如图删除选定区域
用VBA实现
请老师们帮帮忙，谢谢大家了！
删除文档最后一个字符，后面的空格与回车（即无意义的空格和回车）.rar (2.36 KB, 下载次数: 8)

2015-1-22 10:00 上传

点击文件名下载附件

wshcw

Sub 删除段落首尾空格及空行()

    With ActiveDocument.Content.Find

        .Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll

        .Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll

        .Execute findtext:="(", replacewith:="（", Replace:=wdReplaceAll

        .Execute findtext:=")", replacewith:="）", Replace:=wdReplaceAll

    End With

    SendKeys "^(aej)", True

    Dim i As Paragraph

    For Each i In ActiveDocument.Paragraphs

        If Len(i.Range) = 1 Then i.Range.Delete

    Next
End Sub

huanglicheng

供参考

1. 
   
2. Sub 删除空白段落()
   
3.     Dim i As Paragraph, n As Integer
   
4.     Application.ScreenUpdating = False
   
5.     For Each i In ActiveDocument.Paragraphs
   
6.         If Len(i.Range) = 1 Then
   
7.             i.Range.Delete
   
8.             n = n + 1
   
9.         End If
   
10.     Next
    
11.     MsgBox "共删除空白段落" & n & "个"
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

学习VS交流

wshcw 发表于 2015-1-22 10:18
Sub 删除段落首尾空格及空行()

    With ActiveDocument.Content.Find

谢谢老师
这个代码很好

但我想实现的是：删除文档最后的空行、和空格，文档中间的不删除

再请老师斧正下，谢谢老师了！

学习VS交流

huanglicheng 发表于 2015-1-22 10:21
供参考

谢谢老师
这个代码很好

但我想实现的是：删除文档最后的空行、和空格，文档中间的不删除

再请老师斧正下，谢谢老师了！

huanglicheng

学习VS交流 发表于 2015-1-22 11:12
谢谢老师
这个代码很好

1. Sub 删除最后空白段落()
   
2. 
   
3.     Dim i&, iCount&, arr
   
4.     arr = Split(ActiveDocument.Range.Text, Chr(13))
   
5. 
   
6.     Application.ScreenUpdating = False
   
7.     With ActiveDocument.Paragraphs
   
8.         iCount = UBound(arr)
   
9.         For i = iCount - 1 To 0 Step -1
   
10.             If Len(Trim(arr(i))) = 0 Then
    
11.                 .Item(i + 1).Range.Delete
    
12.             Else
    
13.                 .Item(i + 1).Range.Text = Trim(arr(i))
    
14.                 Exit For
    
15.             End If
    
16.         Next i
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19.    
    
20. End Sub
    

复制代码

学习VS交流

huanglicheng 发表于 2015-1-22 11:32

非常感谢老师，达到了效果了。

老师如果改成，删除文档第一个字符前，所有的空格、及空行，怎么改呀，再麻烦下老师了！

413191246se

狂晕！楼主，前几天你这个问题，我已经给出了解答代码，你怎么还问啊！？（见你其它帖子）

学习VS交流

413191246se 发表于 2015-1-22 19:35
狂晕！楼主，前几天你这个问题，我已经给出了解答代码，你怎么还问啊！？（见你其它帖子）

哦，谢谢老师了！

loquat

1. Private Function myRegExp(ByVal str$, ByVal aPattern$) As String
   
2. With CreateObject("Vbscript.RegExp")
   
3.     .Global = True
   
4.     .Pattern = aPattern
   
5.     myRegExp = .Replace(str, "")
   
6. End With
   
7. End Function
   
8. 
   
9. Sub 删除尾部空行()
   
10. Application.ScreenUpdating = False  '关闭屏幕刷新，成倍提高效率
    
11. Dim aCount&, i&, skipChars$
    
12. skipChars = "[ ^13]"  '这里自己定义无意义的字符列表，上面包括硬回车、半角空格
    
13. With ActiveDocument    '压栈，提高一定效率
    
14.     aCount = .Paragraphs.count   '避免循环节中每次都读取对象，提高一定效率
    
15.     For i = aCount To 1 Step -1  '段落从后往前循环
    
16.         If myRegExp(.Paragraphs(i).Range.Text, skipChars) <> "" Then Exit For '只有一次对象读取，不定义变量
    
17.             '段落字符不是回车符时退出循环，i为最后一个有字符的段落号
    
18.     Next
    
19.     .Range(.Paragraphs(i).Range.End, .Content.End).Delete  '删除段落i的末尾到文档的末尾范围。减少对象删除次数。
    
20. End With  '出栈，释放内存
    
21. Application.ScreenUpdating = True  '恢复屏幕刷新
    
22. End Sub
    

复制代码