小众软件

顶！

回复

接着顶。

回复

小巧实用，同顶～

回复

…

回复

呃..很赞同。

回复

小众使用的是 7z 压缩包，为何你报出来的是 rar 呢？
卡巴 7 正常

回复

下载去官网，回复来小众，嗯，就是这样。

小众版也是报一样的。

回复

这个肯定不是病毒，TypeSetter 把一些库打包在一个程序里并且加壳，所以有些杀软会误报。

回复

应该是误杀

回复

麻烦哪~刚刚录了一个宏，可以实现简单的功能。
Sub SimpleFormat()
‘ 宏在 2008-6-5 由 李二嫂的猪
‘
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “^p^p”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
‘如果空行比较多，可以使用循环
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0.35)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 2
.LineUnitBefore = 0
.LineUnitAfter = 0
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
End Sub

回复

8-( 我的留言被过滤了……

回复

可以啊，不过不是还需要多点几次么。

懒人的最大特点，省掉一切可以省去的步骤。

回复

这个宏怎么用的？

回复

@hhoo00
1. 在 Word 中直接按 Alt + F11 之后把代码粘上并保存，之后关闭VisualBasic编辑器。
2. 在Word 主界面中按 Alt + F8 选择 SimpleFormat，之后点击运行（Alt + R）就可以了。

回复

可以用沙盒试验一下，看看与否。

回复