Word VBA中，如何根据内容删除一行？
删除文档中所有内容为空的行，用WordVBA怎么处理？我只会Excel的VBA，这个不会……...
删除文档中所有内容为空的行，用Word VBA怎么处理？
我只会Excel的VBA，这个不会…… 展开
我只会Excel的VBA，这个不会…… 展开
展开全部
Sub DelBlank()
Dim i as Paragraph, n as Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共删除空白段落" & n & "个。"
Application.ScreenUpdating = True
End Sub
摘自 EXCELHOME
Dim i as Paragraph, n as Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共删除空白段落" & n & "个。"
Application.ScreenUpdating = True
End Sub
摘自 EXCELHOME
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
