版主来看看吧！！

cysan · 发表于 2004-4-26 17:22

有没有哪位可以指点，我想在出一份试卷中，将答案和题目一起打好，但是打印时只打印题目，不打印答案，也可一起打印。看过一种方法，是将答案用格式中的隐藏文字起来，但是答案下有横线的（如填空题），我在打印不要答案的情况又需要它存在，隐藏起来时，横线又不在，无法实现较好的效果，求教大家有没有好办法！！！

[此贴子已经被作者于2004-4-27 12:24:15编辑过]

办公之星 · 发表于 2004-4-26 19:57

　　最简单的办法就是：将不想打印的字体设置为无色。

　　为了提高效率，最好先设置一个小的区域，然后双击激活格式刷，逐一地刷过不想打印的答案部分。

　　如果将来想打印答案了，全选文本，一次性地设置字体颜色即可。

　　土办法了。

cysan · 发表于 2004-4-27 09:05

可是填空题的横线在只打印题目时就打不出来了，望赐教！！

cysan · 发表于 2004-4-27 09:09

在线等！！自己顶一下！！！

wenz · 发表于 2004-4-27 11:32

你见过王长春的《化学金排》吗，他的制作卷子功能就是用代码控制的，思想是答卷中的答案设置成无色，老师用卷子把答案设置成蓝色，用查找颜色的代码，可惜我没代码。录制宏肯定是解决不了的。

[此贴子已经被作者于2004-4-27 13:28:20编辑过]

cysan · 发表于 2004-4-27 12:18

高手们再想想！！！

baimin · 发表于 2004-4-27 12:47

利用绘图，在答案下划横线，答案可设白色字体。

cysan · 发表于 2004-4-27 15:25

这样太麻烦了！！如果填空题太多了，就不好做了，有没有更好的办法？

wenz · 发表于 2004-4-27 15:46

研究这些代码， Sub 显示所有试题答案() Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorWhite Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorBlue With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

End Sub Sub 隐藏所有试题答案() Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorBlue Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorWhite With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

End Sub

cysan · 发表于 2004-4-28 16:35

9楼的朋友，这些代码该放哪儿呢？

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