分享一个大纲级别匹配标题样式的代码

大罡

1. Sub ApplyBuiltInHeadingStyleToOutlineLevels()
   
2.     Dim para As Paragraph
   
3.     Dim outlineLevel As WdOutlineLevel
   
4. 
   
5.    For Each para In ActiveDocument.Paragraphs
   
6.            outlineLevel = para.outlineLevel
   
7.         If outlineLevel >= wdOutlineLevel1 And outlineLevel <= wdOutlineLevel9 Then
   
8.             para.style = -outlineLevel - 1
   
9.         End If
   
10.   Next para
    
11. End Sub

复制代码

遍历文中 大纲级别为 1-9的 段落， 如果匹配 那么
设置该段落的样式为 对应级别的样式 。

para.style = -outlineLevel - 1 这里运算的数值代表一下:

wdStyleHeading1	-2	Heading 1.
wdStyleHeading2	-3	Heading 2.
wdStyleHeading3	-4	Heading 3.
wdStyleHeading4	-5	Heading 4.
wdStyleHeading5	-6	Heading 5.
wdStyleHeading6	-7	Heading 6.
wdStyleHeading7	-8	Heading 7.
wdStyleHeading8	-9	Heading 8.
wdStyleHeading9	-10	Heading 9.

rrxfw

谢谢分享。

大罡

1. Sub outlinelevel_Mapping_headingStyle()
   
2. Dim i
   
3.     Dim rng As Range
   
4.     Set rng = ActiveDocument.Content
   
5. 
   
6. For i = 1 To 9
   
7.         With rng.find
   
8.             .ClearFormatting
   
9.             .ParagraphFormat.outlineLevel = i
   
10.             .Replacement.style = ActiveDocument.styles(-i - 1)
    
11.             .Execute Replace:=wdReplaceAll
    
12.     End With
    
13.    Next
    
14. End Sub

复制代码

用 find 方法重构了这个需求，让其效率更高。
当i=1时，.ParagraphFormat.outlineLevel = i  ，根据 ms官方文档，outlnelevel =1 代表 WdOutlineLevel，即 outlineleve的内建成员之一，枚举型变量。   .Replacement.style = ActiveDocument.styles(-i - 1)的含义：
-i - 1 运算结果 -2 ，代表内建样式：wdStyleHeading1，即我们suo说的 标题1，内建样式的使用，增强了程序的鲁棒性，使得适用范围更广。

cjan520

非常感谢，亲测非常好用