Word vba段落设置必须运行2次
时间: 2024-01-08 22:02:47 浏览: 34
这可能是因为你的 VBA 代码中未完全应用段落格式设置。在 VBA 中设置段落格式需要在段落对象上执行两次操作。第一次操作将段落格式应用于段落,第二次操作清除段落中任何残留的格式。以下是一个示例代码,展示了如何正确设置段落格式:
```
Sub SetParagraphFormat()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
With para.Range
.ParagraphFormat.Alignment = wdAlignParagraphCenter
' 第一次应用段落格式
.ParagraphFormat.SpaceBefore = 6
.ParagraphFormat.SpaceAfter = 6
.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
.ParagraphFormat.LineUnitBefore = 0
.ParagraphFormat.LineUnitAfter = 0
' 第二次应用段落格式
.SetRange .Start, .End
.ParagraphFormat.SpaceBefore = 6
.ParagraphFormat.SpaceAfter = 6
.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
.ParagraphFormat.LineUnitBefore = 0
.ParagraphFormat.LineUnitAfter = 0
End With
Next para
End Sub
```
在上面的代码中,我们首先使用 `With` 语句块将段落对象的范围设置为 `para.Range`,然后在第一次操作中应用段落格式。接下来,我们使用 `SetRange` 方法将范围重新设置为 `para.Range`,然后在第二次操作中应用相同的段落格式。这样可以确保所有之前的格式都被清除,从而使段落格式设置能够正确应用。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)