word宏怎么定位格式为项目编号的标题，需要进行加粗

o0star0o

请问怎么用宏对这种格式的小标题进行加粗，有大神会定位这个吗？

413191246se

楼主，如何定位项目和编号段落，不太清楚。目前有个变通方法，就是将全文的项目和编号段落，用 VBA 宏的办法，给转换为普通文本，去掉自动项目和编号，这样，就好办了，请试用下面的宏：

1. Sub aaaa项目编号段落加粗()
   
2.     '列表编号转文本
   
3.     ActiveDocument.ConvertNumbersToText
   
4.    
   
5.     '循环遍历所有段落
   
6.     Dim i As Paragraph
   
7.     For Each i In ActiveDocument.Paragraphs
   
8.         With i.Range
   
9.             If .Text Like "[一二三四五六七八九十]、*" Then
   
10.                 With .Font
    
11.                     .NameFarEast = "黑体"
    
12.                     .NameAscii = "Times New Roman"
    
13.                     .Bold = True
    
14.                     .ColorIndex = wdPink
    
15.                 End With
    
16.                 .Find.Execute "^t", , , 0, , , , , , "", 1
    
17.             End If
    
18.         End With
    
19.     Next
    
20. End Sub

复制代码

daibao88

曲线救国。

o0star0o

2L聪明，确实可以实现

o0star0o

413191246se 发表于 2021-11-15 20:33
楼主，如何定位项目和编号段落，不太清楚。目前有个变通方法，就是将全文的项目和编号段落，用 VBA 宏的办 ...

感谢回复，您的办法挺聪明，确实可以实现，但如果这样处理的话，项目编号不仅仅有一二三四五六七八九十
还有：
1.
2.
3.
...
10.
请问能麻烦您加个这个吗，把这种格式的也改为加粗

413191246se

楼主，你不必麻烦了，请试用我的《自动排版宏》吧！（请注意使用前备份文档！）
链接：https://club.excelhome.net/thread-1558189-1-1.html

zmj9151

__________

o0star0o

zmj9151 发表于 2021-11-17 07:33
__________

1. Sub zmj9151()
   
2. Dim doc As Document
   
3. Dim para As Paragraph
   
4. 
   
5. Set doc = ActiveDocument
   
6. cnt = doc.ListParagraphs.Count
   
7. 
   
8. For i = 1 To cnt
   
9.     Set para = doc.Range.ListParagraphs(i)
   
10.     para.Range.Bold = True
    
11. Next
    
12. End Sub
    
13. 
    
14. Sub ts(c As IRibbonControl)
    
15. 
    
16. Select Case c.ID
    
17.     Case "btn11"
    
18.         zmj9151
    
19.     Case "btn12"
    
20.     ThisDocument.FollowHyperlink c.Tag
    
21. End Select
    
22. 
    
23. End Sub
    

复制代码

哥们，你这个代码看不懂呢，不能自己修改吗，想请教下你这个是怎么实现的啊，可以放在选项卡