帮我看看这个代码错在哪里？

qiqi58

WORD中用vba实现将特定的三排文字，一起缩进18个字符。但是下面的代码执行不了，请帮我看看错在哪里

1. Sub IndentText()  
   
2.     Dim doc As Document  
   
3.     Dim rng As Range  
   
4.     Dim str As String  
   
5.   
   
6.     Set doc = ActiveDocument  
   
7.     Set rng = doc.Range(0, 0)  
   
8.   
   
9.     str = "规划名称" & vbCrLf & "立项人" & vbCrLf & "日期"  
   
10.     rng.Text = str  
    
11.   
    
12.     With rng.Paragraphs(1).ParagraphFormat  
    
13.         .LeftIndent = InchesToPoints(0.3)  ' 18个字符大约等于0.3英寸  
    
14.         .RightIndent = 0  
    
15.     End With  
    
16.   
    
17.     With rng.Paragraphs(2).ParagraphFormat  
    
18.         .LeftIndent = InchesToPoints(0.3)  
    
19.         .RightIndent = 0  
    
20.     End With  
    
21.   
    
22.     With rng.Paragraphs(3).ParagraphFormat  
    
23.         .LeftIndent = InchesToPoints(0.3)  
    
24.         .RightIndent = 0  
    
25.     End With  
    
26. End Sub

复制代码

batmanbbs

ParagraphFormat针对的是range对象，不是Paragraphs，所以改为.Paragraphs(n).range.ParagraphFormat即可。

另外，如果这三行的设置是完全一致的，可使用手动换行符（不使用段落符），这样三行是一个段落，做一次段落设置即可。