求助！如何将不规则的一坨文字整理成标准的格式（如图）

cheneycn · 发表于 2019-10-16 09:06

本帖最后由 cheneycn 于 2019-10-16 09:11 编辑

微信截图_20191016090501.png

原来是这样的

红色字体为答案

整理成这样，然后红色是答案，也放到题目后面。
文件下载：

01.zip (74.53 KB, 下载次数: 48)

小花鹿 · 发表于 2019-10-16 10:05

01.rar (150.9 KB, 下载次数: 16)

答案没做，自己想法

wdpfox · 发表于 2019-10-17 22:24

本帖最后由 wdpfox 于 2019-10-17 22:27 编辑

比较难搞，因有的题目没有答案。

wdpfox · 发表于 2019-10-18 15:16

正误自行检查吧。

试试修改.rar (158.5 KB, 下载次数: 24)

tcdatongye · 发表于 2019-10-18 16:36

Sub 调整()
Set rng = ActiveDocument.Content
With Selection.Find
.MatchWildcards = True
.Forward = True
.Wrap = wdfinddstop
For i = 0 To 1
Select Case i
Case 0
.Text = "([0-9]@.)"
Case 1
.Text = "([A-F].)"
End Select
rng.Select
Do While .Execute
If i = 1 And .Parent.Characters(1).Font.Color = wdColorRed Then m = .Parent.Characters(1)
With .Replacement
.Text = "^p\1"
End With
.Execute Format:=False, Replace:=wdReplaceOne
If .Forward = True Then
Selection.Collapse Direction:=wdCollapseEnd
Else
Selection.Collapse Direction:=wdCollapseStart
End If
If i = 1 And m <> "" Then
jj = .Parent.Range.Bookmarks("\line").Range.Text
If jj Like "B.[对错]*" Or jj Like "D.*" Then j = 1
End If
If m <> "" And j = 1 Then
With Selection
.Expand unit:=wdParagraph
.End = .End - 1
.InsertAfter vbCrLf & "答案：" & m
.EndOf unit:=wdParagraph
End With
m = "": j = 0
End If
Loop
Next i
End With
End Sub

复制代码

没有标色就没有答案了

相见是缘8 · 发表于 2019-10-19 07:42

wdpfox 发表于 2019-10-18 15:16
正误自行检查吧。

老师厉害！
能否请老师也把方法或代码贴出来，让大家欣赏学习一下？谢谢！

相见是缘8 · 发表于 2019-10-19 07:43

tcdatongye 发表于 2019-10-18 16:36
没有标色就没有答案了

老师厉害！
谢谢老师把代码贴出来，让大家欣赏学习！

wdpfox · 发表于 2019-10-19 11:41

与tcdatongye老师的代码比，上不了台面。抱歉！

相见是缘8 · 发表于 2019-10-19 14:04

wdpfox 发表于 2019-10-19 11:41
与tcdatongye老师的代码比，上不了台面。抱歉！

老师过谦了！
我个人认为来这里的人，大多都是抱着学习的目的，代码的水平虽然有高低之分，但高有高的长处，低有低的妙处，有时高水平的代码，对于初学者不一定受益就多！

cheneycn · 发表于 2019-11-26 10:21

tcdatongye 发表于 2019-10-18 16:36
没有标色就没有答案了

太厉害了！

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