紧急求助！如何用vba对 word进行如下修改 谢谢！！

lj1226189

所有文字初标题外均改成仿宋小四，文章标题仿宋四号，段落行距改成固定值20磅。段落应该是调好的每段缩进2字符，

413191246se

1. Sub test()
   
2.     With Selection
   
3.         .WholeStory
   
4.         .ClearFormatting
   
5.         CommandBars.FindControl(ID:=122).Execute
   
6.         CommandBars.FindControl(ID:=123).Execute
   
7.         With .Font
   
8.             .Name = "仿宋_GB2312" '如果是WIN7系统，请删除“_GB2312”
   
9.             .Size = 12
   
10.             .Kerning = 0
    
11.             .DisableCharacterSpaceGrid = True
    
12.         End With
    
13.         With .ParagraphFormat
    
14.             .LineSpacingRule = wdLineSpaceExactly
    
15.             .LineSpacing = 20
    
16.             .CharacterUnitFirstLineIndent = 2
    
17.             .AutoAdjustRightIndent = False
    
18.             .DisableLineHeightGrid = True
    
19.         End With
    
20.         .HomeKey Unit:=wdStory
    
21.     End With
    
22.     With ActiveDocument.Paragraphs(1).Range
    
23.         .Style = wdStyleHeading1
    
24.         With .Font
    
25.             .Name = "仿宋_GB2312" '如果是WIN7系统，请删除“_GB2312”
    
26.             .Size = 14
    
27.         End With
    
28.         With .ParagraphFormat
    
29.             .Alignment = wdAlignParagraphCenter
    
30.             .Space1
    
31.         End With
    
32.     End With
    
33. End Sub

复制代码