如何将隐藏文字格式的答案剪切到文档的最后

geryjun

如何将答案部分放在文档后面.zip (5.11 KB, 下载次数: 36)

2012-5-1 23:13 上传

点击文件名下载附件

操作说明：有这样的word文档试题，为了方便做题想把答案部分，批量剪切出去，放在文档最后，

因为打印方便，我把答案的格式设置为隐藏的红色字体。（如果看不到答案，请设置为显示隐藏文字）

其实我的要求就是  如何将隐藏文字格式的答案剪切到文档的最后。

代码在第8楼，通过修改下划线提取的代码。

在发帖之前，我发现有两个帖子可以参考：可是我不会修改，所以在这里求助。谢谢。

http://club.excelhome.net/forum.php?mod=viewthread&tid=603731

http://club.excelhome.net/thread-853002-1-1.html

<1> 职业道德是道德体系中的一个重要部分。

<1>√

<2>  职业道德是社会分工发展到一定阶段的产物。

<2> √

<3> 加强职业道德能保证企业的正常经营，但总体会减少企业收益。

<3>  ×

<4> 以下关于道德和职业道德的说法中，你认为不正确的是(　　)。

A、 道德是一个庞大的体系   B、 道德与社会发展没有关系

C、 职业道德是道德体系中的一个重要部分  D、 任何职业道德的适用范围都不是普遍的

<4>  B

<5> 以下关于道德的说法中，你认为正确的是(　　)。

A、 道德缺乏历史继承性  B、 道德标准不具有时代性

C、 人们所做的一切工作都可以作道德评价  D、 道德和社会发展没有关系

<5>  C

<6> 下列关于职业道德的论述中，你认为正确的是(　　)。

A、 加强职业道德能保证企业的正常经营，但总体会减少企业收益  B、 加强职业道德能改变人们的思想观念，但与推进技术进步无关

C、 加强职业道德只是一项经营之外的事务，往往会加大企业和员工的负担  D、 加强职业道德会增加投入，但从总体上看可降低企业的经营成本

<6> D

<7> 职业道德是指从事一定职业劳动的人们，在特定的工作和劳动中以其(　　)和特殊社会手段来维系的，以善恶进行评价的心理意识、行为原则和行为规范的总和。

A、 纪律约束   B、 理想目标

C、 评价标准   D、 内心信念

<7> D

<8> 要使社会安定、秩序正常，除法律手段以外，还需要一定的规则和规范来约束人们的行为，调整人们的关系，这种规范就是(　　)。

A、 道德   B、 职业道德   C、 纪律  D、 教育

  <8>A

解析说明：请看书本第100页

请看书本第102页

请看书本第104页

<9> 以下关于道德和职业道德的说法中，你认为正确的有(　　)。

A、 道德是一个庞大的体系  B、 道德与社会发展没有关系

C、 职业道德是道德体系中的一个重要部分  D、 任何职业道德的适用范围都不是普遍的

<9>  A,C,D

解析说明：请看书本第10页

<10> 以下关于道德的说法中，你认为不正确的是(　　)。

A、 道德缺乏历史继承性    B、 道德标准不具有时代性

C、 人们所做的一切工作都可以作道德评价  D、 道德和社会发展没有关系

<10> A,B,D

解析说明：请看书本第100页

效果如下：

<1>√

<2> √

<3>  ×

<4>  B

<5>  C

<6> D

<7> D

  <8>A

解析说明：请看书本第100页

请看书本第102页

请看书本第104页

<9>  A,C,D

解析说明：请看书本第10页

<10> A,B,D

解析说明：请看书本第100页

geryjun

其实，我觉得这个代码http://club.excelhome.net/thread-853002-1-1.html
是很适合的，但是它的格式是下划线，我现在的格式是红色隐藏字体。我不太懂。

geryjun

只是提取红色隐藏字体就行，可以不用管答案前的标号。
有时候的答案是分为几段的。

绿竹清茶

新建一个样式，将答案统一应用这个样式，打开样式和格式窗格，点击这个样式旁的小三角……

geryjun

绿竹清茶 发表于 2012-5-2 08:36
新建一个样式，将答案统一应用这个样式，打开样式和格式窗格，点击这个样式旁的小三角……

有没有直接的方法，如用vba代码。我的答案格式已经固定了，而且这样的文档有很多。

绿竹清茶

我不懂vba，可否用查找功能试试

geryjun

提取隐藏文字的代码没有找到，却找到了一个删除 隐藏文字的代码：

Sub test()

n = 0
ActiveDocument.ActiveWindow.View.ShowHiddenText = True
For Each i In ActiveDocument.Characters
If i.Font.Hidden = True Then
n = n + 1

i.Delete

End If
Next
MsgBox "共删除隐藏字符" & n & "个"

End Sub

geryjun

Sub a11()
Dim s As String, a As String
With ActiveDocument.Content.Find
.Text = "[0-9]@."
.Forward = True
.MatchWildcards = True
Do While .Execute
.Parent.Font.Hidden = True
Loop
End With
With ActiveDocument.Content.Find
.Font.Hidden = True
Do While .Execute(findtext:="", Format:=True)
If Val(.Parent) <> 0 And InStr(.Parent, ".") <> 0 Then a = Chr(13) & .Parent Else a = .Parent & "  "
s = s & a
Loop
End With
With ActiveDocument.Content.Find
.Text = "[0-9]@."
.Forward = True
.MatchWildcards = True
Do While .Execute
.Parent.Font.Hidden = True
Loop
End With
With ActiveDocument.Content.Find
.Font.Hidden = True
.Execute findtext:="", replacewith:="^p", Format:=True, Replace:=wdReplaceAll, Forward:=False
End With
ActiveDocument.Range.InsertAfter s

End Sub

413191246se

楼主，VBA我也没弄好，主要是找到隐藏文字后，复制到文档最尾部的问题，搞不定！——推荐你手动用“查找与替换”，方法：
（可点击一下“显示/隐藏编辑标记，以显示隐藏文字及段落标记等）编辑菜单——查找——查找内容框：点击一下光标，点击——格式——字体——隐藏文字——确定——勾选“突出显示所有在该范围找到的项目”——查找全部——关闭——复制——粘贴到文档尾部，OK！

geryjun

413191246se 发表于 2012-5-3 10:41
楼主，VBA我也没弄好，主要是找到隐藏文字后，复制到文档最尾部的问题，搞不定！——推荐你手动用“查找与替 ...

谢谢，8楼的就是VBA代码。