word统一改变每段的序号

相见是缘8

ming0018 发表于 2019-4-3 09:16
自己看图吧

不好意思，我基础太差，还是不明白？？？

ming0018

相见是缘8 发表于 2019-4-3 09:34
不好意思，我基础太差，还是不明白？？？

那无能为力了

相见是缘8

ming0018 发表于 2019-4-3 09:48
那无能为力了

好的，看 zhanglei1371 老师能不能指教？

willylucy

zhanglei1371 发表于 2019-4-2 18:39
不需要vba，直接Ctrl+F9，在大括号里输入seq aaa，然后F9，会变成1，剪切掉这个1，然后Ctrl+H==>查找问题[0 ...

非常好用啊，虽然不知道我自己干了啥，但是结果很好用！谢谢，大神你有某宝店么，以后有问题可以求教你了

willylucy

总结一下，我自己是个小白，我的理解如下

顺序	操作	我的理解，不一定对，请大神按步骤指正
步骤1	选空白处按Ctrl+F9	新设立一个域
步骤2	在大括号里输入seq aaa	seq貌似是域的操作命令，aaa可能是位数吧
步骤3	然后F9，会变成1	建立完成，这个域就默认就是1号域
步骤4	剪切掉这个1	把这个域放到剪切板里
步骤5	然后Ctrl+H
步骤6	在查找对话框选“更多”
步骤7	勾选通配符
步骤8	在查找里面输入以下内容
步骤9	问题[0-9]{1,}	貌似是正则表达式
步骤10	在替换栏目输入以下内容
步骤11	问题^c	替换为^c的意思貌似是剪切板的内容
步骤12	点全部替换
步骤13	ctrl+a
步骤14	F9	更新域，域就默认从1开始编号了

zhanglei1371

相见是缘8 发表于 2019-4-3 15:08
好的，看 zhanglei1371 老师能不能指教？

你seq和aaa之间少了空格。就这么简单。
按照lz的操作肯定能成功了。多思考

相见是缘8

zhanglei1371 发表于 2019-4-4 16:57
你seq和aaa之间少了空格。就这么简单。
按照lz的操作肯定能成功了。多思考

啊！是少了空格，加上空格后操作成功了。
但发现在 “问题” 段中有阿拉伯数字的，“问题” 的编号就不依次排序了（漏排），这个不知我又是那里没弄好？

小花鹿

413191246se 发表于 2019-4-2 19:55

好代码，记个记号，方便学习

413191246se

小花鹿 老师：过奖了！

小花鹿

413191246se 发表于 2019-4-5 23:16
小花鹿 老师：过奖了！

在这个板块，除了杜老师，很少看到有你这样的写WORDVBA代码的，比较专业
但是，事先插入一个空行，始终觉得怪怪的，最后还要删除
我对WORD的查找替换了解的不是很深，对正则了解一点，用正则搞了一下，通过测试速度还行
Sub 题目重新编号()
Dim reg, t, ph As Paragraph, n&
t = Timer
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "^问题[0-9]+[、：:．.]"
For Each ph In ActiveDocument.Paragraphs
    If reg.test(ph.Range) Then
        n = n + 1
        With ph.Range
            .Collapse
            .MoveStart 1, 2
            .MoveEndUntil "、：:．."
            .Text = n
        End With
    End If
Next ph
MsgBox Timer - t
End Sub