Office中国论坛/Access中国论坛

标题: [讨论]SOS 能否利用"替换"快速美化这样的文档? [打印本页]

作者: tangqingfu 时间: 2005-3-14 08:04
标题: [讨论]SOS 能否利用"替换"快速美化这样的文档?
我的问题:

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

不知我的表述是否明白？[attach]9390[/attach]

作者: liuhoubin168 时间: 2005-3-15 17:51
仅用替换可能不行，加上格式刷也较快，一扫就是几个。

作者: tangqingfu 时间: 2005-3-15 19:10
如何运用格式刷,我试了一下,好像不行,能说详细一点吗? 制表符不是样式,好像不能用格式刷吧???

作者: liuhoubin168 时间: 2005-3-17 22:04
我是说仅用替换不行。你得先把A.替换替换为A.→(“→”为TAB)，然后再用格式刷。

作者: liuhoubin168 时间: 2005-3-17 22:12
如果你会使用宏，送你两个调整行距的宏，制作试卷非常有用，如果你有更好的请告诉我：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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)