[讨论]SOS 能否利用"替换"快速美化这样的文档?

liuhoubin168

仅用替换可能不行，加上格式刷也较快，一扫就是几个。

liuhoubin168

我是说仅用替换不行。你得先把A.替换替换为A.→(“→”为TAB)，然后再用格式刷。

liuhoubin168

如果你会使用宏，送你两个调整行距的宏，制作试卷非常有用，如果你有更好的请告诉我：Sub 缩小行距()

       Dim b

    If Selection.ParagraphFormat.LineSpacing = 9999999 Then

        For b = 1 To Selection.Paragraphs.Count

            Selection.Paragraphs(b).LineSpacing = Selection.Paragraphs(b).LineSpacing - 0.5

        Next b

    Else

        Selection.ParagraphFormat.LineSpacing = Selection.ParagraphFormat.LineSpacing - 0.5

    End If

End Sub

Sub 增大行距()

    Dim b

    If Selection.ParagraphFormat.LineSpacing = 9999999 Then

        For b = 1 To Selection.Paragraphs.Count

            Selection.Paragraphs(b).LineSpacing = Selection.Paragraphs(b).LineSpacing + 0.5

        Next b

    Else

        Selection.ParagraphFormat.LineSpacing = Selection.ParagraphFormat.LineSpacing + 0.5

    End If

End Sub