查找文档内的“竖排字符”批量删除

13907933959

文档内的排版是横竖混合的，只删除所有的竖排字符（为便于查看，以用红色标注）。
详情请见附件，请各位前辈帮忙，谢谢！

13907933959

更新一下，看是否有运气碰到能解答的前辈！

duquancai

13907933959 发表于 2017-12-24 14:06
更新一下，看是否有运气碰到能解答的前辈！

简单粗暴的写一个WordVBA

Sub test()
    Dim p As Paragraph, d As Document
    Set d = ActiveDocument
    For i = d.Paragraphs.Count To 1 Step -1
        If d.Paragraphs(i).LeftIndent >= 300 Then
            d.Paragraphs(i).Range.Text = Empty
        End If
    Next
End Sub

13907933959

duquancai 发表于 2017-12-24 14:27
简单粗暴的写一个WordVBA

Sub test()

杜前辈好！
谢谢！代码在附件上测试是OK的，在大文档（22.4MB）上运行，经过一个半小时的运行都还没完（可能和我这个电脑配置低也有关系），不知有不有办法让它的速度再快一些？

duquancai

13907933959 发表于 2017-12-24 17:39
杜前辈好！
谢谢！代码在附件上测试是OK的，在大文档（22.4MB）上运行，经过一个半小时的运行都还没完（ ...

没办法，你给定的条件，只能遍历每一个段落，这是其一，其二，你给定的条件只能是按照 段落的左缩进不同 而删除最靠右的段落（这个最靠右的字符并非你说的 竖排，而是左缩进而已）

13907933959

duquancai 发表于 2017-12-24 18:01
没办法，你给定的条件，只能遍历每一个段落，这是其一，其二，你给定的条件只能是按照 段落的左缩进不同  ...

杜前辈好！
好的，是左缩进，让前辈见笑了！由于我对这些东西也没有系统的学习过，好多东西都不懂，经常是指鹿为马，只能是边用、边问、边学，好在前辈您不计较，总是能帮的帮，能教的教，心里感激！！！