|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub aaaa_delete_empty_para()
- Dim i&
- i = 85
-
- ActiveDocument.Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
-
- ActiveDocument.Range(ActiveDocument.Paragraphs(i).Range.Start, _
- ActiveDocument.Paragraphs(i).Range.Start).Select
-
- With Selection
- Do
- .MoveStart 4, -1
- CommandBars.FindControl(ID:=122).Execute
- CommandBars.FindControl(ID:=123).Execute
- With .Paragraphs(1).Range
- If Asc(.Text) = 13 Then .Delete Else Exit Do
- End With
- Loop
- End With
- MsgBox "OK!", 0 + 48
- End Sub
复制代码 |
|