删除第一节末到节二节前空白段落的代码

ke3088

删除第一节后第二节前的空白段，分节符保留在第一节最后一段后的代码。
向各位老师求助，谢谢！
删除空白段落的代码.rar (4.03 KB, 下载次数: 14)

2017-10-24 11:33 上传

点击文件名下载附件

duquancai

把 第一节后第二节前的 实例化，再对这个实例进行查找替换。

ke3088

duquancai 发表于 2017-10-24 12:09
把 第一节后第二节前的 实例化，再对这个实例进行查找替换。

实例化？杜老师，可以再讲明白点吗？

duquancai

ke3088 发表于 2017-10-24 15:28
实例化？杜老师，可以再讲明白点吗？

Sub shishi()
    With ActiveDocument.Sections(1).Range
        .Start = .End - 1: .End = .Start
        .MoveStartWhile Chr(13), wdBackward
        .Start = .Start + 2: .Text = Empty
    End With
End Sub

ke3088

duquancai 发表于 2017-10-24 19:53
Sub shishi()
    With ActiveDocument.Sections(1).Range
        .Start = .End - 1: .End = .Start
...

谢谢，老师！已成。
.Start = .Start + 2: .Text = Empty
改成：
.Start = .Start + 1: .Text = Empty
效果更佳！
再次衷心感谢！

duquancai

ke3088 发表于 2017-10-24 20:43
谢谢，老师！已成。
.Start = .Start + 2: .Text = Empty
改成：

如果没下附件，根本不知道你的需求，你描述存在极大问题。

ke3088

对，对，讲得对，向老师学习，今后将进一步加强语文作文的学习