word消断问题

leedun

word消段以前看过类似的帖子找到了解决的方法，步骤如下：勾选通配符，查找([!。：……？！”）】])^13{1,}替换为\1


现在有一个新的问题，就是一些小标题后面没有标点符号，消段的时候容易把小标题并入下一段落，特来求助各位老师，希望能得到解决的方法。

duquancai

那就请问你，如何断定这就是小标题而不是断行？

duquancai

Sub shishi()
    Dim p As Range, sr$
    sr = "(（）)一二三四五六七八九〇百千万"
    With ActiveDocument.Content.Find
        Do While .Execute("([!。：……？！”）】])^13{1,}", , , 1)
            With .Parent
                Set p = .Duplicate
                p.Collapse: p.Expand 4: p.Collapse
                If p.MoveWhile(sr) Then
                    .Collapse 0
                Else
                    .Start = .Start + 1: .Text = Empty
                End If
            End With
        Loop
    End With
End Sub

leedun

duquancai 发表于 2017-6-10 21:34
那就请问你，如何断定这就是小标题而不是断行？

谢谢杜先生加班帮忙解答，小标题字数比较少，不一定都是双括号加数字的为小标题，上传的示例文件不太全面，小标题一般不超过二十个字，能不能根据字数确定是否需要消断？

duquancai

leedun 发表于 2017-6-10 22:30
谢谢杜先生加班帮忙解答，小标题字数比较少，不一定都是双括号加数字的为小标题，上传的示例文件不太全面 ...

Sub shishi()
    Dim p As Range, lg&
    With ActiveDocument.Content.Find
        Do While .Execute("([!。：……？！”）】])^13{1,}", , , 1)
            With .Parent
                Set p = .Duplicate
                p.Collapse: p.Expand 4: lg = Len(p.Text)
                If lg < 20 Then
                    .Collapse 0
                Else
                    .Start = .Start + 1: .Text = Empty
                End If
            End With
        Loop
    End With
End Sub

413191246se

杜先生 好！楼主 好！——代码运行 OK！我原来那个简单的《断行相连》查找替换一行代码，是有问题，把一些小标题段落相连了，看来，还是根据字数稍微靠谱些，但并非绝对正确，还是得人工校对。

leedun

duquancai 发表于 2017-6-10 22:42
Sub shishi()
    Dim p As Range, lg&
    With ActiveDocument.Content.Find

谢谢杜先生，代码运行OK，太了不起了！

leedun

413191246se 发表于 2017-6-11 12:59
杜先生 好！楼主 好！——代码运行 OK！我原来那个简单的《断行相连》查找替换一行代码，是有问题，把一些 ...

用字符控制全是比较不错的，不知道前辈能不能研究一下是否能只用正则就能解决！

413191246se

楼主好！我虽然来论坛6年了，其实还是VBA菜鸟。正则是 杜先生 的拿手好戏。

wdpfox

学习了，多谢杜老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)