如何用vba整理序号，重排版面？

sblisb

经常要下载一些时事做习题，可是排版浪费了很多时间，能用vba自动完成吗？
1、下载了很多份试题，有所选择，然后整成一份，所以题目序号是乱的，能不能自动重生成题号？
2、选择题答案排版不整齐，想让它整齐，就是abcd四个答案，如果四个答案空两个Tab可以排成一行就排成一行；不行就排成两行，每行两个答案，两个答案中间空四个Tab。
3、题目中有答案，能自动提取到习题最后，并删除题目中的答案吗？
自动排版Test.rar (7.08 KB, 下载次数: 51)

2015-10-30 12:23 上传

点击文件名下载附件

sblisb

发现答案排版其实就是选中答案分栏，能排成一行就一行，不能就用分栏分成两栏

zhanglei1371

简单的处理方法：
1．随意找个地方，按Ctrl+F9，输入需 seq aas，再按F9，会变成1，剪切这个1；然后勾查找替换框的选通配符；
2．查找：[0-9]{1,}.替换为：^c.
3．全选，按F9更新域，按Ctrl+Shift+F9断开域；
4．查找^13答案：*^13,勾选突出显示所有在该范围找到的项目；点查找全部，批量剪切粘到最后即可。
至于选项的转换：查找[BD],替换为^13^&,就太简单了。
至于再专业些。就需要代码了，不是吾能帮的了了。。。
5．

sblisb

zhanglei1371 发表于 2015-10-30 13:50
简单的处理方法：
1．随意找个地方，按Ctrl+F9，输入需 seq aas，再按F9，会变成1，剪切这个1；然后勾查找 ...

在第二步查找阶段，没有查找到内容呀，所以第三步进行不了
“至于选项的转换：查找[BD],替换为^13^&,就太简单了”这句不明白做什么？

sblisb

sblisb 发表于 2015-10-30 13:57
在第二步查找阶段，没有查找到内容呀，所以第三步进行不了
“至于选项的转换：查找,替换为^13^&,就太 ...

噢，正则表达式错了一位，-输成~了

413191246se

楼主，下面只完成了第一步，试试：（创建副本后，在副本中把题号完成顺序编号）
Sub aaa整理题号()
'创建副本
    ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) & "_副本" & ".doc"
    Dim i As Paragraph, j As Long, k As Long
    For Each i In ActiveDocument.Paragraphs
        If i.Range Like "#.*" Or i.Range Like "##.*" Or i.Range Like "###.*" Then
            i.Range.Font.Color = wdColorPink
            k = InStr(i.Range, ".")
            i.Range.Select
            Selection.MoveEnd Unit:=wdCharacter, Count:=-(Len(i.Range) - (k - 1))
            j = j + 1
            Selection.Text = j
        End If
    Next
End Sub

sblisb

413191246se 发表于 2015-10-31 10:20
楼主，下面只完成了第一步，试试：（创建副本后，在副本中把题号完成顺序编号）
Sub aaa整理题号()
'创建 ...

谢了，哪句是改动字体颜色的，我不要改动色彩

413191246se

i.Range.Font.Color = wdColorPink-----粉红色，屏蔽（即在此语句前面加个英文单引号'，把它注释掉或删除均可，实为测试时突出显示、鲜明之用）。

413191246se

楼主，改动颜色是为了方便你知道哪个段落是题目，最后《全选》再设为《自动色》未尝不可。