word中标题前后加标识的代码（含求助）

dlguang

我想在word的标题、正文的段落前后加上标记，便于转到txt时保留格式信息。通过如下代码可以实现，供需要者参考，也可以指点下将代码优化下，但是正文段落前后加标识还没有解决，请高人指点。
段落前后可以加“【正文】”

1. Sub 标题前后加标识()
   
2.     With Selection.Find
   
3.       .Parent.HomeKey wdStory
   
4.       .ClearFormatting
   
5.       .Style = ActiveDocument.Styles("标题 1")
   
6.       .Replacement.ClearFormatting
   
7.       Do While .Execute("", , , , , , True, , , "【1】^&")
   
8.         .Parent.EndKey wdLine
   
9.         .Parent.TypeText "【1】"
   
10.       Loop
    
11.     End With
    
12.     With Selection.Find
    
13.       .Parent.HomeKey wdStory
    
14.       .ClearFormatting
    
15.       .Style = ActiveDocument.Styles("标题 2")
    
16.       .Replacement.ClearFormatting
    
17.       Do While .Execute("", , , , , , True, , , "【2】^&")
    
18.         .Parent.EndKey wdLine
    
19.         .Parent.TypeText "【2】"
    
20.       Loop
    
21.     End With
    
22.     With Selection.Find
    
23.       .Parent.HomeKey wdStory
    
24.       .ClearFormatting
    
25.       .Style = ActiveDocument.Styles("标题 3")
    
26.       .Replacement.ClearFormatting
    
27.       Do While .Execute("", , , , , , True, , , "【3】^&")
    
28.         .Parent.EndKey wdLine
    
29.         .Parent.TypeText "【3】"
    
30.       Loop
    
31.     End With
    
32.     With Selection.Find
    
33.       .Parent.HomeKey wdStory
    
34.       .ClearFormatting
    
35.       .Style = ActiveDocument.Styles("标题 4")
    
36.       .Replacement.ClearFormatting
    
37.       Do While .Execute("", , , , , , True, , , "【4】^&")
    
38.         .Parent.EndKey wdLine
    
39.         .Parent.TypeText "【4】"
    
40.       Loop
    
41.     End With
    
42.     With Selection.Find
    
43.       .Parent.HomeKey wdStory
    
44.       .ClearFormatting
    
45.       .Style = ActiveDocument.Styles("标题 5")
    
46.       .Replacement.ClearFormatting
    
47.       Do While .Execute("", , , , , , True, , , "【5】^&")
    
48.         .Parent.EndKey wdLine
    
49.         .Parent.TypeText "【5】"
    
50.       Loop
    
51.     End With
    
52. End Sub
    

复制代码

dlguang

增加前后效果：