用VBA对所有的空白行设格式

chenai

麻烦问一下各位，我从版主资料上知道，删除空白行是这个程序，那要对空白行设定格式，段前段后间距为0，段落为单倍行距，左缩进4.5字符，无悬挂缩进，首行缩进。怎么改下面的程序呢，谢谢谢谢。 Sub DelBlank() Dim i As Paragraph, n As Long Application.ScreenUpdating = False For Each i In ActiveDocument.Paragraphs If Len(i.Range) = 1 Then i.Range.Delete n = n + 1 End If Next Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2006-5-15 16:00:00编辑过]

konggs

Sub 你的要求()

Dim astyle As Style
Set astyle = ActiveDocument.Styles.Add(Name:="你的样式", Type:=wdStyleTypeParagraph)
With astyle.ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
.Space1
.CharacterUnitLeftIndent = 4.5
.CharacterUnitFirstLineIndent = 2
End With
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Style = "你的样式"
End If
Next
Application.ScreenUpdating = True

End Sub

chenai

谢谢谢谢，实在抱歉，怎么不对呢，每次都说什么我的样式已经被使用或保留为内置样式。是怎么回事呢

chenai

哦，程序是执行了的，只是会出现刚才说的对话框是怎么回事。

chenai

但是还是没对，有些地方执行不对的。如果是几百页的东西就容易出错，有没有办法像删除空白行那样子整的，只要是空行就设格式，不用样式之类的。再谢谢谢谢

konggs

Sub 你的要求()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
With i.Range.ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
.Space1
.CharacterUnitLeftIndent = 4.5
.CharacterUnitFirstLineIndent = 2
End With
End If
Next
Application.ScreenUpdating = True

End Sub

PS:我的二楼设置不好，但是，样式我想肯定比这个快。

konggs

Sub 你的要求()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Reset
With i.Range.ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 0
.Space1
.CharacterUnitLeftIndent = 4.5
.CharacterUnitFirstLineIndent = 2
End With
End If
Next
Application.ScreenUpdating = True

End Sub

'楼主，反映上面的不行。这个行，放上来。给后来人参考。