查找中英字符，数字混合的段落，如何控制查找段落的总字符数？

413191246se

略。。。。。

相见是缘8

413191246se 发表于 2020-6-13 13:37
相见，你好！——未设置段落标记，直接设置段落符之前的文字，请测试：

老师好！

感谢你的回复及代码！

你可能误解了，我的意思不是如你今天给的代码（单改变标题的格式，不改变标题前后段落符的格式）的意思，而是想请你在7楼的代码上再加一句：把段落符全部替换为“五号、黑色、非加粗”的代码。

Sub test()

   Dim i As Paragraph

   For Each i In ActiveDocument.Paragraphs

       If Len(i.Range) < 50 And i.Range Like "*：?" Theni.Range.Font.ColorIndex = wdBlue: i.Range.Bold = True

       If……i.Range.Font.ColorIndex= wdColorBlack: i.Range.Font.Size = 10.5: i.Range.Bold = False  '如果找到段落符全部替换为：黑色、五号、非加粗。

   Next

End Sub

因我另有用处，不知这样可成否？

413191246se

略。。。。。

相见是缘8

413191246se 发表于 2020-6-14 01:28
相见，请测试：（如果还不成，就请重新在下一楼贴出文字处理前/后对照，我再重新编码）

老师好！

再次感谢你的回复及代码！

你可能还是误解了我的意思，我只想请你在7楼的代码上再加一句：把段落符全部替换为“五号、黑色、非加粗”的代码。如下面红色代码所示，因这句代码我另有它用，为下一步作准备。

Sub test()

    Dim i As Paragraph

    For Each i In ActiveDocument.Paragraphs

        If Len(i.Range) < 50 And i.RangeLike "*：?" Theni.Range.Font.ColorIndex = wdBlue: i.Range.Font.Size = 15: i.Range.Bold = True

        If……i.Range.Font.ColorIndex = wdColorBlack: i.Range.Font.Size = 10.5:i.Range.Bold = False  '如果找到段落符全部替换为：黑色、五号、非加粗。

    Next

End Sub

413191246se

* 相见，请再试试：

1. Sub test_相见的_冒号结尾50字符段落()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If Len(.Text) < 51 And .Text Like "*：?" Then
   
6.                 With .Font
   
7.                     .Size = 10.5
   
8.                     .Bold = True
   
9.                     .ColorIndex = wdBlue
   
10.                 End With
    
11.                 With .Characters.Last.Font
    
12.                     .Bold = False
    
13.                     .ColorIndex = wdBlack
    
14.                 End With
    
15.             End If
    
16.         End With
    
17.     Next
    
18. End Sub

复制代码

相见是缘8

413191246se 发表于 2020-6-14 13:04
* 相见，请再试试：

老师好！

你这个代码我测试了，小标题后面的段落符格式改了，小标题前面的段落符格式没改，是吧？

下午我通过在你7楼的代码上，加上下面的这几句代码，也可实现我想要的结果。

…………

Next

    WithActiveDocument.Content.Find

       With .Replacement

           .ClearFormatting

           .Font.Bold = False

           .Font.Color = wdColorBlack

           .Font.Size = 10.5

       End With

       .Execute FindText:="^13", ReplaceWith:="^p", Format:=True, Replace:=wdReplaceAll

    End With

End Sub

可我想请你把上面的这几句代码，简化成如下面的这一句代码。不知可否！我水平未到，不知道在下面代码的那里，怎么加上段落符，让下面这句代码能用。

If……i.Range.Font.ColorIndex= wdColorBlack: i.Range.Font.Size = 10.5: i.Range.Bold = False  '如果找到段落符全部替换为：黑色、五号、非加粗。

413191246se

相见：
1、你是不是想找到，以冒号结尾、并且只有50个字符的段落？将其设置为加粗、蓝色？
2、你是不是想只设置以上段落的段落标记（段落符）为五号、黑色、不加粗？还是设置全文的段落符？
3、请针对附件重新测试一下运行效果（如果我的提问/回答不满意，建议重新在下一楼附上，处理前文字，处理后文字效果/要求）。

相见是缘8

413191246se 发表于 2020-6-14 23:09
相见：
1、你是不是想找到，以冒号结尾、并且只有50个字符的段落？将其设置为加粗、蓝色？
2、你是不是想 ...

老师好！

真是难为你了！抱歉！！！

1、我是想找到，以冒号结尾、并且小于50个字符的段落，将其全部设为加粗、小三、蓝色。

2、然后再把全文的段落符设为黑色、五号、非加粗。

3、之所以反复强调想用这个代码，因后面我还另有用途！

413191246se

1. Sub test_相见的_冒号结尾50字符段落_New_New()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If Len(.Text) < 51 And .Text Like "*：?" Then
   
6.                 With .Font
   
7.                     .Size = 10.5
   
8.                     .Bold = True
   
9.                     .ColorIndex = wdBlue
   
10.                 End With
    
11.             End If
    
12.             With .Characters.Last.Font
    
13.                 .Size = 10.5
    
14.                 .Bold = False
    
15.                 .ColorIndex = wdBlack
    
16.             End With
    
17.         End With
    
18.     Next
    
19. End Sub

复制代码

相见是缘8

413191246se 发表于 2020-6-15 10:56

好了，老师！感谢你这么多次的出手相助和辛劳付出！万分感谢！！！