替换为首行缩近的问题

konggs · 发表于 2005-6-20 21:04

版主忙，小弟试试！

Sub tongyi()

If Selection.Type > 0 Then With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = InchesToPoints(2) .CharacterUnitFirstLineIndent = 2 .WordWrap = True End With Else Selection.WholeStory With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = InchesToPoints(2) .CharacterUnitFirstLineIndent = 2 .WordWrap = True End With End If End Sub

tongyi · 发表于 2005-6-20 21:10

======在 2005-6-20 21:04:32 您来信中写道：====== 老大忙，小弟做了个，你试试！ ======================================

谢谢了，但不行啊，只有选中的段落变了，我的意思是如果选中了几段就变几段的，但如果没有选中，就从光标出开始到结尾。这个怎么弄啊

konggs · 发表于 2005-6-21 09:11

改后此：

If Application.Selection.Words.Count > 1 Then With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = InchesToPoints(2) .CharacterUnitFirstLineIndent = 2 .WordWrap = True End With Else Selection.WholeStory With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = InchesToPoints(2) .CharacterUnitFirstLineIndent = 2 .WordWrap = True End With End If End Sub

再试试！

tongyi · 发表于 2005-6-21 19:03

不行啊，在没有选中时还是全部都缩近了

		自动登录	找回密码
密码			免费注册