word如何用替换法删除以特定字符结尾的段落

13907933959

ming0018 发表于 2019-1-8 17:43

前辈好！这个代码如换成段落开头，控制字符数量要怎样修改？

相见是缘8

ming0018 发表于 2019-1-8 17:43

前辈好！我也想知道，这个代码如换成段落开头，控制字符数量要怎样修改？

ming0018

相见是缘8 发表于 2019-2-13 09:23
前辈好！我也想知道，这个代码如换成段落开头，控制字符数量要怎样修改？

1. Sub deleteParagraphs_BeginWith像()
   
2.     Dim doc As Document: Set doc = ActiveDocument
   
3.     With doc.Content.Find
   
4.         .Text = "像"
   
5.         Do While .Execute
   
6.             With .Parent.Paragraphs(1).Range
   
7.                 .Select
   
8.                 If .Characters(1) = "像" Then
   
9.         　            '做你要做的事情
   
10.                 End If
    
11.             End With
    
12.             .Parent.start = .Parent.Paragraphs(1).Range.end
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码

ming0018

13907933959 发表于 2019-2-8 10:20
前辈好！这个代码如换成段落开头，控制字符数量要怎样修改？

详见13楼………………详见13楼………………

相见是缘8

ming0018 发表于 2019-2-13 11:46

前辈好！
感谢！
我的意思是像你2楼给的代码一样，控制字符的数量，只是查找的这个关键字符由段尾换成段落开头，要怎样修改？
也就是删除以“像”开头的，字数不超过50个的段落。

ming0018

相见是缘8 发表于 2019-2-13 13:12
前辈好！
感谢！
我的意思是像你2楼给的代码一样，控制字符的数量，只是查找的这个关键字符由段尾换成 ...

1. Sub deleteParagraphs_BeginWith像()
   
2.     Dim doc As Document: Set doc = ActiveDocument
   
3.     With doc.Content.Find
   
4.         .Text = "像"
   
5.         Do While .Execute
   
6.             With .Parent.Paragraphs(1).Range
   
7.                 If .Characters(1) = "像" And Len(.Text) < 50 Then
   
8.                     .Select
   
9.                 End If
   
10.             End With
    
11.             .Parent.start = .Parent.Paragraphs(1).Range.end
    
12.         Loop
    
13.     End With
    
14. End Sub

复制代码

相见是缘8

ming0018 发表于 2019-2-13 14:07

啊、这样就可以了。感谢前辈多次帮忙！

Sub deleteParagraphs_BeginWith像()

    Dim doc As Document: Set doc = ActiveDocument

    With doc.Content.Find

        .Text = "像"

        Do While .Execute

            With .Parent.Paragraphs(1).Range

                If .Characters(1) = "像" And Len(.Text) < 50Then.Delete

            End With

            .Parent.Start =.Parent.Paragraphs(1).Range.End

        Loop

    End With

EndSub

想再问一下前辈下面这几句代码，标准的中文注释是什么意思？

.Parent.Start = .Parent.Paragraphs(1).Range.End

With.Parent.Paragraphs(1).Range

If .Characters(1) ="像" And Len(.Text)< 50 Then

13907933959

ming0018 发表于 2019-2-13 11:46
详见13楼………………详见13楼………………

感谢前辈！

13907933959

相见是缘8 发表于 2019-2-13 14:31
啊、这样就可以了。感谢前辈多次帮忙！
Sub deleteParagraphs_BeginWith像()    Dim doc As Document: S ...

感谢朋友！

相见是缘8

13907933959 发表于 2019-2-16 11:42
感谢朋友！

你太客气了！