如何根据段首序号，选定不同的样式（样式已编辑好）

〖Light〗

如何根据段首序号，选定不同的快速样式。例如“一、概述”、“二、详细说明”改为样式1，“1.价格问题”改为样式2；“（1）书报费”改为样式3.另外能否实现将“1.价格问题”段落首的“1.”改为“①”；“2.”改为“②”，依此类推。请大神帮忙看下

一、概述

二、详细说明

三、主要问题

1. 价格问题

（1）书报费

本次书报费暂定每人每月20元。请各单位将购买的书名、报纸名称分别进行统计。

2.份数问题

〖Light〗

利用VBA自动调整成附件的格式

413191246se

1. Sub MyStyle()
   
2.     Dim i As Paragraph, j&, a, b
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If .Text Like "[一二三四五六七八九十]、*" Then
   
6.                 .Style = "样式 1"
   
7.             ElseIf .Text Like "#.*" Or .Text Like "##.*" Then
   
8.                 .Style = "样式 2"
   
9.             ElseIf .Text Like "（#）*" Or .Text Like "（##）*" Then
   
10.                 .Style = "样式 3"
    
11.             End If
    
12.         End With
    
13.     Next
    
14.     a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    
15.     b = Array("①", "②", "③", "④", "⑤", "⑥", "⑦", "⑧", "⑨", "⑩")
    
16.     With ActiveDocument.Content.Find
    
17.         For j = 0 To 9
    
18.             .Execute a(j) & ".", , , , , , , , , b(j), 2
    
19.         Next j
    
20.     End With
    
21. End Sub

复制代码

〖Light〗

413191246se 发表于 2018-12-29 21:57

十分感谢！！

〖Light〗

十分感谢！！

〖Light〗

413191246se 发表于 2018-12-29 21:57

求大神，能不能再帮忙实现下：段落前的编号“一”，“1.”，“（1）”逐级修改。比如段落前为“一”，运行宏变为“1.”，再运行一次“1.”变为“（1）”。

413191246se

楼主，这样做的话，标题会混乱的，你确定这样做吗？

〖Light〗

是不是每个段落只判断前三个字符，进行操作。其余的内容不做判断，就不会乱啊

413191246se

是这样的，我用的方法是，循环遍历段落法，每个段落判断段首有什么特征，比如：“一、XX”，这显然应该设置为标题2样式；再比如：“1.XX“，在公文排版中应该是标题4样式，但在你这里是样式2……。楼主你的最终目的是什么呢？

leedun

413191246se 发表于 2018-12-29 21:57

前辈，.Text Like "#.*" Or .Text Like "##.*"这句还能精简吗？例如.Text Like "[0-9]@." ，或者.Text Like "[0-9]{1,}." 这种通配符，但是试过行不通