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

tangqingfu

我的问题:



有一篇英语试卷长文档, 在选择题中,选项A. B. C. D. 事先没有利用制表符的方法对齐,录入完毕后,想让各小题中的A. B. C. D.各选项对齐,根据内容多少在一行，两行或四行排列（如同文档中第二页的样式）请教如快速更改，能采用＂替换＂吗？



不知我的表述是否明白？

liuhoubin168

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

tangqingfu

如何运用格式刷,我试了一下,好像不行,能说详细一点吗? 制表符不是样式,好像不能用格式刷吧???

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